| File |
Line number |
Procedure |
Code |
|
./model/src/calc_buoyancy.F |
30 |
CALC_BUOYANCY |
_RL rhoLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/calc_buoyancy.F |
7 |
CALC_BUOYANCY |
I bi, bj, iMin, iMax, jMin, jMax, k, rhoLoc, |
|
./model/src/calc_oce_mxlayer.F |
112 |
CALC_OCE_MXLAYER |
O rhoLoc, |
|
./model/src/calc_oce_mxlayer.F |
118 |
CALC_OCE_MXLAYER |
& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN |
|
./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 |
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 |
158 |
CALC_OCE_MXLAYER |
O rhoLoc, |
|
./model/src/calc_oce_mxlayer.F |
165 |
CALC_OCE_MXLAYER |
sigmAv = ( rhoLoc(i,j)-rhoSurf(i,j)+dRhoSmall ) |
|
./model/src/calc_oce_mxlayer.F |
194 |
CALC_OCE_MXLAYER |
rhoLoc(i,j)=(hMixSmooth * hMixLayer(i,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
210 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rhoLoc(i,j) |
|
./model/src/calc_oce_mxlayer.F |
62 |
CALC_OCE_MXLAYER |
_RL rhoLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/opps/opps_calc.F |
470 |
OPPS_CALC |
_RL rhoLoc, dRho |
|
./pkg/opps/opps_calc.F |
504 |
OPPS_CALC |
rhoLoc = 0. _d 0 |
|
./pkg/opps/opps_calc.F |
526 |
OPPS_CALC |
rhoLoc=rhoNil* ( |
|
./pkg/opps/opps_calc.F |
538 |
OPPS_CALC |
rhoLoc = 0. _d 0 |
|
./pkg/opps/opps_calc.F |
617 |
OPPS_CALC |
rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst |
|
./pkg/opps/opps_calc.F |
649 |
OPPS_CALC |
rhoLoc = rhoNum*rhoDen - rhoConst |
|
./pkg/opps/opps_calc.F |
661 |
OPPS_CALC |
state1 = rhoLoc + rhoConst |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
55 |
SALT_PLUME_CALC_DEPTH |
_RL rhoLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
80 |
SALT_PLUME_CALC_DEPTH |
O rhoLoc, |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
86 |
SALT_PLUME_CALC_DEPTH |
& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN |
|
./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 |
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/find_alpha.F |
226 |
FIND_ALPHA |
O rhoLoc, |
|
./model/src/find_alpha.F |
265 |
FIND_ALPHA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dtheta) |
|
./model/src/find_alpha.F |
325 |
FIND_BETA |
_RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/find_alpha.F |
472 |
FIND_BETA |
O rhoLoc, |
|
./model/src/find_alpha.F |
504 |
FIND_BETA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dsalt ) |
|
./model/src/find_alpha.F |
63 |
FIND_ALPHA |
_RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/find_rho.F |
101 |
FIND_RHO_2D |
rhoLoc(i,j)=rhoNil*( |
|
./model/src/find_rho.F |
139 |
FIND_RHO_2D |
rhoLoc(i,j)=sigRef+deltaSig |
|
./model/src/find_rho.F |
172 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoP0(i,j) |
|
./model/src/find_rho.F |
205 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
24 |
FIND_RHO_2D |
O rhoLoc, |
|
./model/src/find_rho.F |
55 |
FIND_RHO_2D |
_RL rhoLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/find_rho.F |
569 |
FIND_RHO_SCALAR |
O rhoLoc, |
|
./model/src/find_rho.F |
590 |
FIND_RHO_SCALAR |
_RL rhoLoc |
|
./model/src/find_rho.F |
603 |
FIND_RHO_SCALAR |
rhoLoc = 0. _d 0 |
|
./model/src/find_rho.F |
650 |
FIND_RHO_SCALAR |
rhoLoc = 0. _d 0 |
|
./model/src/find_rho.F |
729 |
FIND_RHO_SCALAR |
rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) |
|
./model/src/find_rho.F |
74 |
FIND_RHO_2D |
rhoLoc(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
761 |
FIND_RHO_SCALAR |
rhoLoc = rhoNum*rhoDen |
|
./model/src/grad_sigma.F |
48 |
GRAD_SIGMA |
_RL rhoLoc(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/grad_sigma.F |
54 |
GRAD_SIGMA |
rhoLoc(i,j) = rhoK(i,j) |
|
./model/src/grad_sigma.F |
62 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
69 |
GRAD_SIGMA |
& *(rhoLoc(i,j)-rhoLoc(i-1,j)) |
|
./model/src/grad_sigma.F |
77 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
84 |
GRAD_SIGMA |
& *(rhoLoc(i,j)-rhoLoc(i,j-1)) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
117 |
INI_LINEAR_PHISURF |
O rhoLoc, myThid ) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
118 |
INI_LINEAR_PHISURF |
IF ( rhoLoc .EQ. 0. _d 0 ) THEN |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
121 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
123 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
49 |
INI_LINEAR_PHISURF |
_RL pLoc, rhoLoc |
|
./model/src/ini_eos.F |
310 |
EOS_CHECK |
_RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/ini_eos.F |
409 |
EOS_CHECK |
rhoLoc(i,j) = 0. _d 0 |
|
./model/src/ini_eos.F |
414 |
EOS_CHECK |
O rhoLoc, |
|
./model/src/ini_eos.F |
452 |
EOS_CHECK |
& rhoLoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/ini_eos.F |
457 |
EOS_CHECK |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |
|
./model/src/ini_eos.F |
460 |
EOS_CHECK |
& rhoLoc(i,j) |
|
./model/src/ini_linear_phisurf.F |
178 |
INI_LINEAR_PHISURF |
O rhoLoc, myThid ) |
|
./model/src/ini_linear_phisurf.F |
179 |
INI_LINEAR_PHISURF |
IF ( rhoLoc .EQ. 0. _d 0 ) THEN |
|
./model/src/ini_linear_phisurf.F |
182 |
INI_LINEAR_PHISURF |
Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
184 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
59 |
INI_LINEAR_PHISURF |
_RL pLoc, rhoLoc |
|
./model/src/set_ref_state.F |
164 |
SET_REF_STATE |
rhoLoc = ( rhoDw + rhoUp )*0.5 _d 0 |
|
./model/src/set_ref_state.F |
166 |
SET_REF_STATE |
rhoLoc = rhoUp |
|
./model/src/set_ref_state.F |
168 |
SET_REF_STATE |
rhoLoc = rhoDw |
|
./model/src/set_ref_state.F |
174 |
SET_REF_STATE |
wUnit2rVel(k) = gravity*rhoLoc |
|
./model/src/set_ref_state.F |
44 |
SET_REF_STATE |
_RL pLoc, rhoUp, rhoDw, rhoLoc |
|
./pkg/down_slope/dwnslp_calc_rho.F |
11 |
DWNSLP_CALC_RHO |
O rhoLoc, |
|
./pkg/down_slope/dwnslp_calc_rho.F |
46 |
DWNSLP_CALC_RHO |
_RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/down_slope/dwnslp_calc_rho.F |
87 |
DWNSLP_CALC_RHO |
O rhoLoc, |