| File |
Line number |
Procedure |
Code |
|
./model/src/cg3d.F |
151 |
CG3D |
maskP1 = 1. _d 0 |
|
./model/src/cg3d.F |
153 |
CG3D |
IF ( K .EQ. Nr) maskP1 = 0. _d 0 |
|
./model/src/cg3d.F |
163 |
CG3D |
& +aV3d(I ,J ,Kp1,bi,bj)*cg3d_x(I ,J ,Kp1,bi,bj)*maskP1 |
|
./model/src/cg3d.F |
90 |
CG3D |
_RL maskM1, maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
73 |
GAD_U3C4_IMPL_R |
_RL mskM, mskP, maskM2, maskP1 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
82 |
GAD_U3C4_IMPL_R |
maskP1 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
85 |
GAD_U3C4_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |
|
./pkg/generic_advdiff/gad_u3c4_impl_r.F |
95 |
GAD_U3C4_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
144 |
GAD_DST3FL_IMPL_R |
mskP = maskC(i,j,kp1,bi,bj)*maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
76 |
GAD_DST3FL_IMPL_R |
_RL mskM, mskP, maskM2, maskP1 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
86 |
GAD_DST3FL_IMPL_R |
maskP1 = 1. _d 0 |
|
./pkg/generic_advdiff/gad_dst3fl_impl_r.F |
89 |
GAD_DST3FL_IMPL_R |
IF ( k.GE.Nr) maskP1 = 0. _d 0 |