| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
148 |
GGL90_CALC |
rhoKm1(i,j) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
163 |
GGL90_CALC |
O rhoKm1, |
|
./pkg/ggl90/ggl90_calc.F |
177 |
GGL90_CALC |
& * ( rhoKm1(i,j) - rhoK(i,j) )*maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
97 |
GGL90_CALC |
_RL rhoKm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/calc_ivdc.F |
10 |
CALC_IVDC |
I rhoKm1, rhoKp1, |
|
./model/src/calc_ivdc.F |
36 |
CALC_IVDC |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/calc_oce_mxlayer.F |
101 |
CALC_OCE_MXLAYER |
rhoKm1(i,j) = rhoSurf(i,j) |
|
./model/src/calc_oce_mxlayer.F |
119 |
CALC_OCE_MXLAYER |
IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN |
|
./model/src/calc_oce_mxlayer.F |
120 |
CALC_OCE_MXLAYER |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
|
./model/src/calc_oce_mxlayer.F |
121 |
CALC_OCE_MXLAYER |
& / ( rhoLoc(i,j) - rhoKm1(i,j) ) |
|
./model/src/calc_oce_mxlayer.F |
128 |
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, |
|
./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, |
|
./model/src/convective_adjustment.F |
147 |
CONVECTIVE_ADJUSTMENT |
O rhoKm1, |
|
./model/src/convective_adjustment.F |
178 |
CONVECTIVE_ADJUSTMENT |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment.F |
58 |
CONVECTIVE_ADJUSTMENT |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/convective_adjustment_ini.F |
147 |
CONVECTIVE_ADJUSTMENT_INI |
O rhoKm1, |
|
./model/src/convective_adjustment_ini.F |
176 |
CONVECTIVE_ADJUSTMENT_INI |
I bi,bj,K,rhoKm1,rhoK, |
|
./model/src/convective_adjustment_ini.F |
62 |
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 |
41 |
CONVECTIVE_WEIGHTS |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
18 |
DIAGS_RHO_L |
I rhoK, rhoKm1, wFld, |
|
./model/src/diags_rho.F |
49 |
DIAGS_RHO_L |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/diags_rho.F |
75 |
DIAGS_RHO_L |
& *(rhoKm1(i,j)+rhoK(i,j))*0.5 _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
54 |
SALT_PLUME_CALC_DEPTH |
_RL rhoKm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
71 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = rhoSurf(i,j) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
87 |
SALT_PLUME_CALC_DEPTH |
IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
88 |
SALT_PLUME_CALC_DEPTH |
tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
89 |
SALT_PLUME_CALC_DEPTH |
& / ( rhoLoc(i,j) - rhoKm1(i,j) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
96 |
SALT_PLUME_CALC_DEPTH |
rhoKm1(i,j) = rhoLoc(i,j) |
|
./model/src/do_oceanic_phys.F |
370 |
DO_OCEANIC_PHYS |
rhoKm1 (i,j) = 0. _d 0 |
|
./model/src/do_oceanic_phys.F |
515 |
DO_OCEANIC_PHYS |
O rhoKm1, |
|
./model/src/do_oceanic_phys.F |
529 |
DO_OCEANIC_PHYS |
I rhoInSitu(1-OLx,1-OLy,k,bi,bj), rhoKm1, rhoKp1, |
|
./model/src/do_oceanic_phys.F |
551 |
DO_OCEANIC_PHYS |
I rhoKm1, rhoInSitu(1-OLx,1-OLy,k,bi,bj), |
|
./model/src/do_oceanic_phys.F |
559 |
DO_OCEANIC_PHYS |
I rhoKm1, wVel, |
|
./model/src/do_oceanic_phys.F |
99 |
DO_OCEANIC_PHYS |
_RL rhoKm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |