| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
653 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
654 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
668 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
854 |
GMREDI_CALC_TENSOR |
maskp1 = 1. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
855 |
GMREDI_CALC_TENSOR |
IF (k.GE.Nr) maskp1 = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
868 |
GMREDI_CALC_TENSOR |
& +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
95 |
GMREDI_CALC_TENSOR |
_RL maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
100 |
GMREDI_RESIDUAL_FLOW |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_residual_flow.F |
101 |
GMREDI_RESIDUAL_FLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_residual_flow.F |
105 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
113 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
49 |
GMREDI_RESIDUAL_FLOW |
_RL maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
61 |
GMREDI_RESIDUAL_FLOW |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_residual_flow.F |
62 |
GMREDI_RESIDUAL_FLOW |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_residual_flow.F |
66 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_residual_flow.F |
74 |
GMREDI_RESIDUAL_FLOW |
delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
174 |
GMREDI_XTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_xtransport.F |
175 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
178 |
GMREDI_XTRANSPORT |
uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
202 |
GMREDI_XTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_xtransport.F |
203 |
GMREDI_XTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_xtransport.F |
206 |
GMREDI_XTRANSPORT |
tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_xtransport.F |
66 |
GMREDI_XTRANSPORT |
_RL maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
174 |
GMREDI_YTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_ytransport.F |
175 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
178 |
GMREDI_YTRANSPORT |
vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
201 |
GMREDI_YTRANSPORT |
maskp1 = 1. |
|
./pkg/gmredi/gmredi_ytransport.F |
202 |
GMREDI_YTRANSPORT |
IF (k.GE.Nr) maskp1 = 0. |
|
./pkg/gmredi/gmredi_ytransport.F |
205 |
GMREDI_YTRANSPORT |
tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1 |
|
./pkg/gmredi/gmredi_ytransport.F |
66 |
GMREDI_YTRANSPORT |
_RL maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
147 |
LAYERS_FLUXCALC |
maskp1 = 1. |
|
./pkg/layers/layers_fluxcalc.F |
148 |
LAYERS_FLUXCALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_fluxcalc.F |
204 |
LAYERS_FLUXCALC |
& ) * maskW(i,j,kcip1,bi,bj) * maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
211 |
LAYERS_FLUXCALC |
delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
283 |
LAYERS_FLUXCALC |
& ) * maskS(i,j,kcip1,bi,bj) * maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
290 |
LAYERS_FLUXCALC |
delPsi = GM_PsiY(i,j,kcip1,bi,bj)*maskp1 |
|
./pkg/layers/layers_fluxcalc.F |
96 |
LAYERS_FLUXCALC |
_RL delPsi, 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 |
149 |
TAUEDDY_TENDENCY_APPLY_V |
_RL maskm1, maskp1 |
|
./model/src/taueddy_tendency_apply.F |
156 |
TAUEDDY_TENDENCY_APPLY_V |
maskp1 = 1. |
|
./model/src/taueddy_tendency_apply.F |
158 |
TAUEDDY_TENDENCY_APPLY_V |
IF (k.EQ.Nr) maskp1 = 0. |
|
./model/src/taueddy_tendency_apply.F |
165 |
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) ) |