| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
564 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
565 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
579 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
752 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
753 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
766 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
88 |
GMREDI_CALC_TENSOR |
_RL maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
48 |
GMREDI_CALC_UVFLOW |
_RL maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
56 |
GMREDI_CALC_UVFLOW |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
57 |
GMREDI_CALC_UVFLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
60 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_calc_uvflow.F |
70 |
GMREDI_CALC_UVFLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
168 |
GMREDI_XTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_xtransport.F |
169 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
172 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
196 |
GMREDI_XTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_xtransport.F |
197 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
200 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
59 |
GMREDI_XTRANSPORT |
_RL maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
168 |
GMREDI_YTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_ytransport.F |
169 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
172 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
195 |
GMREDI_YTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_ytransport.F |
196 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
199 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
59 |
GMREDI_YTRANSPORT |
_RL maskp1 |
|
./pkg/layers/layers_calc.F |
168 |
LAYERS_CALC |
maskp1 = 1. |
|
./pkg/layers/layers_calc.F |
169 |
LAYERS_CALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_calc.F |
170 |
LAYERS_CALC |
delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_calc.F |
239 |
LAYERS_CALC |
maskp1 = 1. |
|
./pkg/layers/layers_calc.F |
240 |
LAYERS_CALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_calc.F |
241 |
LAYERS_CALC |
delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_calc.F |
64 |
LAYERS_CALC |
_RL delPsi, maskp1 |
|
./model/src/taueddy_external_forcing.F |
149 |
TAUEDDY_EXTERNAL_FORCING_V |
_RL maskm1, maskp1 |
|
./model/src/taueddy_external_forcing.F |
164 |
TAUEDDY_EXTERNAL_FORCING_V |
maskp1=1. |
|
./model/src/taueddy_external_forcing.F |
166 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
174 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*GM_PsiY(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
177 |
TAUEDDY_EXTERNAL_FORCING_V |
& -maskp1*_maskS(i,j,kp1,bi,bj)*eddyPsiY(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
59 |
TAUEDDY_EXTERNAL_FORCING_U |
_RL maskm1, maskp1 |
|
./model/src/taueddy_external_forcing.F |
74 |
TAUEDDY_EXTERNAL_FORCING_U |
maskp1=1. |
|
./model/src/taueddy_external_forcing.F |
76 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
84 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*GM_PsiX(i,j,kp1,bi,bj)) |
|
./model/src/taueddy_external_forcing.F |
87 |
TAUEDDY_EXTERNAL_FORCING_U |
& -maskp1*_maskW(i,j,kp1,bi,bj)*eddyPsiX(i,j,kp1,bi,bj)) |