| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/submeso_calc_psi.F |
111 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
199 |
SUBMESO_CALC_PSI |
& *mixLayerV(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
209 |
SUBMESO_CALC_PSI |
IF ( mixLayerV(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
210 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerV(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
52 |
SUBMESO_CALC_PSI |
_RL mixLayerV (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/submeso_calc_psi.F |
87 |
SUBMESO_CALC_PSI |
mixLayerV(i,j)=op5*( locMixLayer(i,j-1)+locMixLayer(i,j) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
88 |
SUBMESO_CALC_PSI |
mixLayerV(i,j) = MIN( mixLayerV(i,j), -rLowS(i,j,bi,bj) ) |