| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/submeso_calc_psi.F |
105 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
156 |
SUBMESO_CALC_PSI |
& *mixLayerU(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
166 |
SUBMESO_CALC_PSI |
IF ( mixLayerU(i,j).GT.0. _d 0 ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
167 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerU(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
51 |
SUBMESO_CALC_PSI |
_RL mixLayerU (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/submeso_calc_psi.F |
81 |
SUBMESO_CALC_PSI |
mixLayerU(i,j) = op5*( locMixLayer(i-1,j)+locMixLayer(i,j) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
82 |
SUBMESO_CALC_PSI |
mixLayerU(i,j) = MIN( mixLayerU(i,j), -rLowW(i,j,bi,bj) ) |