| File |
Line number |
Procedure |
Code |
|
./model/src/taueddy_external_forcing.F |
125 |
TAUEDDY_EXTERNAL_FORCING_V |
_RL maskm1, maskp1 |
|
./model/src/taueddy_external_forcing.F |
138 |
TAUEDDY_EXTERNAL_FORCING_V |
maskm1=1. |
|
./model/src/taueddy_external_forcing.F |
140 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.1) maskm1=0. |
|
./model/src/taueddy_external_forcing.F |
145 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*eddyTauY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
51 |
TAUEDDY_EXTERNAL_FORCING_U |
_RL maskm1, maskp1 |
|
./model/src/taueddy_external_forcing.F |
64 |
TAUEDDY_EXTERNAL_FORCING_U |
maskm1=1. |
|
./model/src/taueddy_external_forcing.F |
66 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.1) maskm1=0. |
|
./model/src/taueddy_external_forcing.F |
71 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*eddyTauX(i,j,klev,bi,bj) |