| File |
Line number |
Procedure |
Code |
|
./model/src/taueddy_external_forcing.F |
149 |
TAUEDDY_EXTERNAL_FORCING_V |
_RL maskm1, maskp1 |
|
./model/src/taueddy_external_forcing.F |
165 |
TAUEDDY_EXTERNAL_FORCING_V |
maskm1=1. |
|
./model/src/taueddy_external_forcing.F |
167 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.1) maskm1=0. |
|
./model/src/taueddy_external_forcing.F |
173 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*GM_PsiY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
176 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*eddyPsiY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
59 |
TAUEDDY_EXTERNAL_FORCING_U |
_RL maskm1, maskp1 |
|
./model/src/taueddy_external_forcing.F |
75 |
TAUEDDY_EXTERNAL_FORCING_U |
maskm1=1. |
|
./model/src/taueddy_external_forcing.F |
77 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.1) maskm1=0. |
|
./model/src/taueddy_external_forcing.F |
83 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*GM_PsiX(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
86 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*eddyPsiX(i,j,klev,bi,bj) |