File |
Line number |
Procedure |
Code |
./model/src/calc_oce_mxlayer.F |
103 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = rhoSurf(i,j) |
./model/src/calc_oce_mxlayer.F |
104 |
CALC_OCE_MXLAYER |
& + MAX( rhoMxL(i,j)*hMixCriteria, dRhoSmall ) |
./model/src/calc_oce_mxlayer.F |
119 |
CALC_OCE_MXLAYER |
& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN |
./model/src/calc_oce_mxlayer.F |
121 |
CALC_OCE_MXLAYER |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
./model/src/calc_oce_mxlayer.F |
127 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = rhoBigNb |
./model/src/calc_oce_mxlayer.F |
147 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = 1. |
./model/src/calc_oce_mxlayer.F |
150 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = -1. |
./model/src/calc_oce_mxlayer.F |
165 |
CALC_OCE_MXLAYER |
& .AND. rhoMxL(i,j).GE.0. ) THEN |
./model/src/calc_oce_mxlayer.F |
180 |
CALC_OCE_MXLAYER |
rhoMxL(i,j) = -1. |
./model/src/calc_oce_mxlayer.F |
60 |
CALC_OCE_MXLAYER |
_RL rhoMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./model/src/calc_oce_mxlayer.F |
98 |
CALC_OCE_MXLAYER |
O rhoMxL, myThid ) |
./pkg/salt_plume/salt_plume_calc_depth.F |
123 |
SALT_PLUME_CALC_DEPTH |
& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN |
./pkg/salt_plume/salt_plume_calc_depth.F |
125 |
SALT_PLUME_CALC_DEPTH |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
./pkg/salt_plume/salt_plume_calc_depth.F |
131 |
SALT_PLUME_CALC_DEPTH |
rhoMxL(i,j) = rhoBigNb |
./pkg/salt_plume/salt_plume_calc_depth.F |
60 |
SALT_PLUME_CALC_DEPTH |
_RL rhoMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/salt_plume/salt_plume_calc_depth.F |
85 |
SALT_PLUME_CALC_DEPTH |
rhoMxL(i,j) = 0. _d 0 |
./pkg/salt_plume/salt_plume_calc_depth.F |
97 |
SALT_PLUME_CALC_DEPTH |
rhoMxL(i,j) = rhoSurf(i,j) + SaltPlumeCriterion |