| File |
Line number |
Procedure |
Code |
|
./model/src/calc_oce_mxlayer.F |
102 |
CALC_OCE_MXLAYER |
rhoKm1(i,j) = rhoSurf(i,j) |
|
./model/src/calc_oce_mxlayer.F |
120 |
CALC_OCE_MXLAYER |
IF ( rhoLoc(i,j).GT.rhoKm1(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 |
122 |
CALC_OCE_MXLAYER |
& / ( rhoLoc(i,j) - rhoKm1(i,j) ) |
|
./model/src/calc_oce_mxlayer.F |
129 |
CALC_OCE_MXLAYER |
rhoKm1(i,j) = rhoLoc(i,j) |
|
./model/src/calc_oce_mxlayer.F |
61 |
CALC_OCE_MXLAYER |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/my82/my82_ri_number.F |
116 |
MY82_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/my82/my82_ri_number.F |
66 |
MY82_RI_NUMBER |
_RL rhoKm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/my82/my82_ri_number.F |
92 |
MY82_RI_NUMBER |
O rhoKm1, |
|
./model/src/convective_adjustment.F |
152 |
CONVECTIVE_ADJUSTMENT |
O rhoKm1, |
|
./model/src/convective_adjustment.F |
183 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment.F |
63 |
CONVECTIVE_ADJUSTMENT |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/convective_adjustment_ini.F |
152 |
CONVECTIVE_ADJUSTMENT_INI |
O rhoKm1, |
|
./model/src/convective_adjustment_ini.F |
181 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment_ini.F |
67 |
CONVECTIVE_ADJUSTMENT_INI |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/convective_weights.F |
10 |
CONVECTIVE_WEIGHTS |
I bi, bj, k, rhoKm1, rhoK, |
|
./model/src/convective_weights.F |
42 |
CONVECTIVE_WEIGHTS |
_RL rhoKm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
18 |
DIAGS_RHO_L |
I rho3d, rhoKm1, wFld, |
|
./model/src/diags_rho.F |
51 |
DIAGS_RHO_L |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
74 |
DIAGS_RHO_L |
& *( rho3d(i,j,k) - rhoKm1(i,j) )*rkSign |
|
./model/src/diags_rho.F |
87 |
DIAGS_RHO_L |
& *( rhoKm1(i,j) - rho3d(i,j,k-1) )*rkSign |
|
./model/src/do_oceanic_phys.F |
208 |
DO_OCEANIC_PHYS |
_RL rhoKm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/do_oceanic_phys.F |
653 |
DO_OCEANIC_PHYS |
rhoKm1 (i,j) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
868 |
DO_OCEANIC_PHYS |
O rhoKm1, |
|
./model/src/do_oceanic_phys.F |
882 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,k,bi,bj), rhoKm1, rhoKp1, |
|
./model/src/do_oceanic_phys.F |
920 |
DO_OCEANIC_PHYS |
I rhoKm1, wVel, |
|
./pkg/pp81/pp81_ri_number.F |
120 |
PP81_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
70 |
PP81_RI_NUMBER |
_RL rhoKm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/pp81/pp81_ri_number.F |
96 |
PP81_RI_NUMBER |
O rhoKm1, |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
124 |
SALT_PLUME_CALC_DEPTH |
IF ( rhoLoc(i,j).GT.rhoKm1(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 |
126 |
SALT_PLUME_CALC_DEPTH |
& / ( rhoLoc(i,j) - rhoKm1(i,j) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
133 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = rhoLoc(i,j) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
61 |
SALT_PLUME_CALC_DEPTH |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
84 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
96 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = rhoSurf(i,j) |