| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
669 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
670 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
684 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
887 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
888 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
901 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
98 |
GMREDI_CALC_TENSOR |
_RL maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
101 |
GMREDI_RESIDUAL_FLOW |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_residual_flow.F |
102 |
GMREDI_RESIDUAL_FLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_residual_flow.F |
106 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
114 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
50 |
GMREDI_RESIDUAL_FLOW |
_RL maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
62 |
GMREDI_RESIDUAL_FLOW |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_residual_flow.F |
63 |
GMREDI_RESIDUAL_FLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_residual_flow.F |
67 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
75 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
189 |
GMREDI_XTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_xtransport.F |
190 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
193 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
217 |
GMREDI_XTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_xtransport.F |
218 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
221 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
81 |
GMREDI_XTRANSPORT |
_RL maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
188 |
GMREDI_YTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_ytransport.F |
189 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
192 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
215 |
GMREDI_YTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_ytransport.F |
216 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
219 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
80 |
GMREDI_YTRANSPORT |
_RL maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
115 |
LAYERS_FLUXCALC |
_RL delPsi, maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
170 |
LAYERS_FLUXCALC |
maskp1 = 1. |
|
./pkg/layers/layers_fluxcalc.F |
171 |
LAYERS_FLUXCALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_fluxcalc.F |
229 |
LAYERS_FLUXCALC |
& ) * maskW(i,j,kcip1,bi,bj) * maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
236 |
LAYERS_FLUXCALC |
delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
318 |
LAYERS_FLUXCALC |
& ) * maskS(i,j,kcip1,bi,bj) * maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
325 |
LAYERS_FLUXCALC |
delPsi = GM_PsiY(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
103 |
MOM_CALC_3D_STRAIN |
& *( maskp1*wVel( i , j ,kp1,bi,bj)-wVel( i , j , k ,bi,bj) ) |
|
./pkg/mom_common/mom_calc_3d_strain.F |
53 |
MOM_CALC_3D_STRAIN |
_RL maskp1 |
|
./pkg/mom_common/mom_calc_3d_strain.F |
60 |
MOM_CALC_3D_STRAIN |
maskp1 = oneRL |
|
./pkg/mom_common/mom_calc_3d_strain.F |
61 |
MOM_CALC_3D_STRAIN |
IF ( k.EQ.Nr ) maskp1 = zeroRL |
|
./model/src/taueddy_tendency_apply.F |
148 |
TAUEDDY_TENDENCY_APPLY_V |
_RL maskm1, maskp1 |
|
./model/src/taueddy_tendency_apply.F |
155 |
TAUEDDY_TENDENCY_APPLY_V |
maskp1 = 1. |
|
./model/src/taueddy_tendency_apply.F |
157 |
TAUEDDY_TENDENCY_APPLY_V |
IF (k.EQ.Nr) maskp1 = 0. |
|
./model/src/taueddy_tendency_apply.F |
164 |
TAUEDDY_TENDENCY_APPLY_V |
& - maskp1*_maskS(i,j,kp1,bi,bj)*tauyEddy(i,j,kp1,bi,bj) ) |
|
./model/src/taueddy_tendency_apply.F |
67 |
TAUEDDY_TENDENCY_APPLY_U |
_RL maskm1, maskp1 |
|
./model/src/taueddy_tendency_apply.F |
74 |
TAUEDDY_TENDENCY_APPLY_U |
maskp1 = 1. |
|
./model/src/taueddy_tendency_apply.F |
76 |
TAUEDDY_TENDENCY_APPLY_U |
IF (k.EQ.Nr) maskp1 = 0. |
|
./model/src/taueddy_tendency_apply.F |
83 |
TAUEDDY_TENDENCY_APPLY_U |
& - maskp1*_maskW(i,j,kp1,bi,bj)*tauxEddy(i,j,kp1,bi,bj) ) |