| File |
Line number |
Procedure |
Code |
|
./model/src/calc_oce_mxlayer.F |
113 |
CALC_OCE_MXLAYER |
O rhoLoc, |
|
./model/src/calc_oce_mxlayer.F |
119 |
CALC_OCE_MXLAYER |
& rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN |
|
./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 |
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 |
159 |
CALC_OCE_MXLAYER |
O rhoLoc, |
|
./model/src/calc_oce_mxlayer.F |
166 |
CALC_OCE_MXLAYER |
sigmAv = ( rhoLoc(i,j)-rhoSurf(i,j)+dRhoSmall ) |
|
./model/src/calc_oce_mxlayer.F |
195 |
CALC_OCE_MXLAYER |
rhoLoc(i,j)=(hMixSmooth * hMixLayer(i,j,bi,bj) + |
|
./model/src/calc_oce_mxlayer.F |
211 |
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 |
471 |
OPPS_CALC |
_RL rhoLoc |
|
./pkg/opps/opps_calc.F |
510 |
OPPS_CALC |
CALL FIND_RHO_SCALAR( tLoc, sLoc, pLoc, rhoLoc, myThid ) |
|
./pkg/opps/opps_calc.F |
511 |
OPPS_CALC |
STATE1 = rhoLoc |
|
./model/src/find_alpha.F |
234 |
FIND_ALPHA |
O rhoLoc, |
|
./model/src/find_alpha.F |
277 |
FIND_ALPHA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dtheta) |
|
./model/src/find_alpha.F |
292 |
FIND_ALPHA |
O rhoLoc, rhoDen, |
|
./model/src/find_alpha.F |
330 |
FIND_ALPHA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dtheta) |
|
./model/src/find_alpha.F |
398 |
FIND_BETA |
_RL rhoLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_alpha.F |
548 |
FIND_BETA |
O rhoLoc, |
|
./model/src/find_alpha.F |
584 |
FIND_BETA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dsalt ) |
|
./model/src/find_alpha.F |
599 |
FIND_BETA |
O rhoLoc, rhoDen, |
|
./model/src/find_alpha.F |
631 |
FIND_BETA |
& - (rhoLoc(i,j)*rhoDen(i,j))*dden_dsalt ) |
|
./model/src/find_alpha.F |
68 |
FIND_ALPHA |
_RL rhoLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_hyd_press_1d.F |
114 |
FIND_HYD_PRESS_1D |
O rhoLoc(k), myThid ) |
|
./model/src/find_hyd_press_1d.F |
121 |
FIND_HYD_PRESS_1D |
dRho = rhoLoc(k)-rhoCen(k) |
|
./model/src/find_hyd_press_1d.F |
147 |
FIND_HYD_PRESS_1D |
rhoCen(k) = rhoLoc(k) |
|
./model/src/find_hyd_press_1d.F |
168 |
FIND_HYD_PRESS_1D |
rhoCen(k) = rhoLoc(k) |
|
./model/src/find_hyd_press_1d.F |
61 |
FIND_HYD_PRESS_1D |
_RL rhoLoc(Nr) |
|
./model/src/find_rho.F |
107 |
FIND_RHO_2D |
rhoLoc(i,j)=rhoNil*( |
|
./model/src/find_rho.F |
1092 |
FIND_RHO_SCALAR |
rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) |
|
./model/src/find_rho.F |
1123 |
FIND_RHO_SCALAR |
rhoLoc = rhoNum*rhoDen |
|
./model/src/find_rho.F |
1160 |
FIND_RHO_SCALAR |
rhoLoc = rhoNum*rhoDen |
|
./model/src/find_rho.F |
1168 |
FIND_RHO_SCALAR |
rhoLoc = atm_Po*facPres /( atm_Rd*theta_v ) |
|
./model/src/find_rho.F |
145 |
FIND_RHO_2D |
rhoLoc(i,j)=sigRef+deltaSig |
|
./model/src/find_rho.F |
178 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoP0(i,j) |
|
./model/src/find_rho.F |
211 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
234 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
252 |
FIND_RHO_2D |
rhoLoc(i,j) = atm_Po*facPres |
|
./model/src/find_rho.F |
255 |
FIND_RHO_2D |
rhoLoc(i,j) = zeroRL |
|
./model/src/find_rho.F |
30 |
FIND_RHO_2D |
O rhoLoc, |
|
./model/src/find_rho.F |
60 |
FIND_RHO_2D |
_RL rhoLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/find_rho.F |
80 |
FIND_RHO_2D |
rhoLoc(i,j) = 0. _d 0 |
|
./model/src/find_rho.F |
835 |
FIND_RHO_SCALAR |
O rhoLoc, |
|
./model/src/find_rho.F |
856 |
FIND_RHO_SCALAR |
_RL rhoLoc |
|
./model/src/find_rho.F |
910 |
FIND_RHO_SCALAR |
rhoLoc = 0. _d 0 |
|
./model/src/find_rho.F |
957 |
FIND_RHO_SCALAR |
rhoLoc = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
117 |
SALT_PLUME_CALC_DEPTH |
O rhoLoc, |
|
./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 |
124 |
SALT_PLUME_CALC_DEPTH |
IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN |
|
./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 |
62 |
SALT_PLUME_CALC_DEPTH |
_RL rhoLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/grad_sigma.F |
53 |
GRAD_SIGMA |
_RL rhoLoc(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/grad_sigma.F |
59 |
GRAD_SIGMA |
rhoLoc(i,j) = rhoK(i,j) |
|
./model/src/grad_sigma.F |
67 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
74 |
GRAD_SIGMA |
& *(rhoLoc(i,j)-rhoLoc(i-1,j)) |
|
./model/src/grad_sigma.F |
82 |
GRAD_SIGMA |
& rhoLoc, bi,bj, myThid ) |
|
./model/src/grad_sigma.F |
89 |
GRAD_SIGMA |
& *(rhoLoc(i,j)-rhoLoc(i,j-1)) |
|
./model/src/ini_eos.F |
364 |
EOS_CHECK |
_RL rhoLoc (1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./model/src/ini_eos.F |
485 |
EOS_CHECK |
rhoLoc(i,j) = 0. _d 0 |
|
./model/src/ini_eos.F |
490 |
EOS_CHECK |
O rhoLoc, |
|
./model/src/ini_eos.F |
534 |
EOS_CHECK |
& rhoLoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/ini_eos.F |
539 |
EOS_CHECK |
& pLoc(kcheck), rhoLoc(i,j), myThid ) |
|
./model/src/ini_eos.F |
542 |
EOS_CHECK |
& rhoLoc(i,j) |
|
./model/src/ini_linear_phisurf.F |
122 |
INI_LINEAR_PHISURF |
O rhoLoc, myThid ) |
|
./model/src/ini_linear_phisurf.F |
127 |
INI_LINEAR_PHISURF |
O rhoLoc, myThid ) |
|
./model/src/ini_linear_phisurf.F |
129 |
INI_LINEAR_PHISURF |
IF ( rhoLoc .EQ. 0. _d 0 ) THEN |
|
./model/src/ini_linear_phisurf.F |
132 |
INI_LINEAR_PHISURF |
Bo_surf(i,j,bi,bj) = 1. _d 0/rhoLoc |
|
./model/src/ini_linear_phisurf.F |
134 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = rhoLoc |
|
./model/src/ini_linear_phisurf.F |
50 |
INI_LINEAR_PHISURF |
_RL pLoc, rhoLoc |
|
./model/src/set_ref_state.F |
233 |
SET_REF_STATE |
rhoLoc = ( rhoDw + rhoUp )*0.5 _d 0 |
|
./model/src/set_ref_state.F |
235 |
SET_REF_STATE |
rhoLoc = rhoUp |
|
./model/src/set_ref_state.F |
237 |
SET_REF_STATE |
rhoLoc = rhoDw |
|
./model/src/set_ref_state.F |
243 |
SET_REF_STATE |
wUnit2rVel(k) = gravity*rhoLoc |
|
./model/src/set_ref_state.F |
44 |
SET_REF_STATE |
_RL pLoc, rhoUp, rhoDw, rhoLoc |
|
./pkg/bbl/bbl_calc_rho.F |
11 |
BBL_CALC_RHO |
O rhoLoc, |
|
./pkg/bbl/bbl_calc_rho.F |
55 |
BBL_CALC_RHO |
_RL rhoLoc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/bbl/bbl_calc_rho.F |
75 |
BBL_CALC_RHO |
O rhoLoc(1-OLx,1-OLy,k,bi,bj), |
|
./pkg/bbl/bbl_calc_rho.F |
91 |
BBL_CALC_RHO |
& rhoLoc(i,j,k,bi,bj) = rBBL(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
113 |
BBL_CALC_RHS |
IF ( rhoLoc(i,j) .LT. rhoBBL(i,j) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
117 |
BBL_CALC_RHS |
IF ( rhoLoc(i,j) .GE. rhoBBL(i,j) .OR. |
|
./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 |
80 |
DWNSLP_CALC_RHO |
O rhoLoc, |