| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_xtransport.F |
156 |
GMREDI_XTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_xtransport.F |
157 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
160 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
53 |
GMREDI_XTRANSPORT |
_RL maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
48 |
GMREDI_CALC_UVFLOW |
_RL maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
55 |
GMREDI_CALC_UVFLOW |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
56 |
GMREDI_CALC_UVFLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
59 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
69 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
312 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
313 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
353 |
GMREDI_CALC_TENSOR |
& +maskp1*(sigmaR(i-1,j,kp1) +sigmaR(i,j,kp1)) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
474 |
GMREDI_CALC_TENSOR |
& +maskp1*(sigmaR(i,j-1,kp1) +sigmaR(i,j,kp1)) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
52 |
GMREDI_CALC_TENSOR |
_RL maskp1, Kgm_tmp |
|
./pkg/gmredi/gmredi_ytransport.F |
156 |
GMREDI_YTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_ytransport.F |
157 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
160 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
53 |
GMREDI_YTRANSPORT |
_RL maskp1 |
|
./model/src/taueddy_external_forcing.F |
125 |
TAUEDDY_EXTERNAL_FORCING_V |
_RL maskm1, maskp1 |
|
./model/src/taueddy_external_forcing.F |
137 |
TAUEDDY_EXTERNAL_FORCING_V |
maskp1=1. |
|
./model/src/taueddy_external_forcing.F |
139 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
146 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*eddyTauY(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
51 |
TAUEDDY_EXTERNAL_FORCING_U |
_RL maskm1, maskp1 |
|
./model/src/taueddy_external_forcing.F |
63 |
TAUEDDY_EXTERNAL_FORCING_U |
maskp1=1. |
|
./model/src/taueddy_external_forcing.F |
65 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
72 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*eddyTauX(i,j,kp1,bi,bj)) |