Skip to content

Commit

Permalink
ww3_gse: playing with the filters ...
Browse files Browse the repository at this point in the history
  • Loading branch information
aronroland committed Sep 11, 2023
1 parent 3e6a3cb commit 2b98263
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions model/src/w3profsmd_pdlib.F90
Original file line number Diff line number Diff line change
Expand Up @@ -6943,10 +6943,12 @@ SUBROUTINE BLOCK_SOLVER_DIFFUSION(DTG)
#endif
TFAC = MIN ( 1. , (CLATS(ISEA)/CLATMN)**2 )
DSS = XWIND * DCELL + (1.-XWIND) * DSS * TFAC
DSS = XWIND * DCELL + (1.) * DSS * TFAC
#ifdef W3_DSS0
DSS = 0.
#endif
DNN = XWIND * DCELL + (1.-XWIND) * DNN * TFAC
DNN = XWIND * DCELL + (1.) * DNN * TFAC

DIFFVEC(1,JSEA) = (DSS*ECOS(ITH)**2+DNN*ESIN(ITH)**2)
DIFFVEC(2,JSEA) = (DSS*ESIN(ITH)**2+DNN*ECOS(ITH)**2) / CLATS(ISEA)**2
Expand Down

0 comments on commit 2b98263

Please sign in to comment.