| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
204 |
ECCO_PHYS |
& *HeatCapacity_Cp*rhoConst |
|
./pkg/ecco/ecco_phys.F |
207 |
ECCO_PHYS |
& *HeatCapacity_Cp*rhoConst |
|
./pkg/ecco/ecco_phys.F |
211 |
ECCO_PHYS |
& *rhoConst/1000. |
|
./pkg/ecco/ecco_phys.F |
214 |
ECCO_PHYS |
& *rhoConst/1000. |
|
./pkg/ecco/ecco_phys.F |
97 |
ECCO_PHYS |
& (rhoConst+RHOInSituLoc(i,j,k,bi,bj))* |
|
./model/inc/PARAMS.h |
823 |
NO PROCEDURE |
& rhoNil, rhoConst, recip_rhoConst, rho1Ref, |
|
./model/inc/PARAMS.h |
927 |
NO PROCEDURE |
_RL rhoConst, recip_rhoConst |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
247 |
GMREDI_CALC_PSI_BVP |
tmpFac = SQRT(gravity/rhoConst) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
80 |
GMREDI_DIAGNOSTICS_FILL |
& 0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
94 |
GMREDI_DIAGNOSTICS_FILL |
& -0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_k3d.F |
437 |
GMREDI_K3D |
maxDRhoDz = -rhoConst*GM_K3D_minN2/gravity |
|
./pkg/gmredi/gmredi_readparms.F |
215 |
GMREDI_READPARMS |
GM_BVP_cHat2Min = GM_BVP_cMin**2*rhoConst/gravity |
|
./pkg/kpp/kpp_routines.F |
1733 |
STATEKPP |
RHO1(I,J) = WORK1(I,J) + rhoConst |
|
./pkg/kpp/kpp_routines.F |
1805 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/kpp/kpp_routines.F |
1807 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./model/src/calc_eddy_stress.F |
70 |
CALC_EDDY_STRESS |
tauxEddy(i,j,k,bi,bj) = rhoConst*coriU*psiy |
|
./model/src/calc_eddy_stress.F |
89 |
CALC_EDDY_STRESS |
tauyEddy(i,j,k,bi,bj) = -rhoConst*coriV*psix |
|
./pkg/layers/layers_calc.F |
168 |
LAYERS_CALC |
rhoShift = rhoConst - 1000. _d 0 |
|
./model/src/calc_oce_mxlayer.F |
95 |
CALC_OCE_MXLAYER |
rhoBigNb = rhoConst*1. _d 10 |
|
./model/src/calc_phi_hyd.F |
348 |
CALC_PHI_HYD |
locAlpha=alphaRho(i,j)+rhoConst |
|
./pkg/mom_common/mom_quasihydrostatic.F |
60 |
MOM_QUASIHYDROSTATIC |
scalingFactor = rhoConst*gravitySign |
|
./pkg/mom_common/mom_u_botdrag_impl.F |
80 |
MOM_U_BOTDRAG_IMPL |
dragFac = mass2rUnit*rhoConst |
|
./pkg/mom_common/mom_u_bottomdrag.F |
76 |
MOM_U_BOTTOMDRAG |
dragFac = mass2rUnit*rhoConst |
|
./pkg/mom_common/mom_v_botdrag_impl.F |
80 |
MOM_V_BOTDRAG_IMPL |
dragFac = mass2rUnit*rhoConst |
|
./pkg/mom_common/mom_v_bottomdrag.F |
76 |
MOM_V_BOTTOMDRAG |
dragFac = mass2rUnit*rhoConst |
|
./model/src/config_summary.F |
309 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( rhoConst, INDEX_NONE,'rhoConst =', |
|
./pkg/opps/opps_calc.F |
482 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
494 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
503 |
OPPS_CALC |
pLoc = rhoConst*phiRef(2*kRef)*maskC(i,j,kRef,bi,bj) |
|
./model/src/find_rho.F |
103 |
FIND_RHO_2D |
dRho = rhoNil-rhoConst |
|
./model/src/find_rho.F |
118 |
FIND_RHO_2D |
sigRef=eosSig0(kRef) + (1000.-rhoConst) |
|
./model/src/find_rho.F |
181 |
FIND_RHO_2D |
& - rhoConst |
|
./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 |
253 |
FIND_RHO_2D |
& /( atm_Rd*theta_v ) - rhoConst |
|
./pkg/salt_plume/salt_plume_apply.F |
120 |
SALT_PLUME_APPLY |
ConvertFac = HeatCapacity_Cp*rhoConst |
|
./pkg/salt_plume/salt_plume_apply.F |
128 |
SALT_PLUME_APPLY |
ConvertFac = rhoConst |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
92 |
SALT_PLUME_CALC_DEPTH |
rhoBigNb = rhoConst*1. _d 10 |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
59 |
SALT_PLUME_FORCING_SURF |
& *SPbrineSconst*rhoConst |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
61 |
SALT_PLUME_FORCING_SURF |
& *theta(i,j,1,bi,bj)*rhoConst |
|
./pkg/sbo/sbo_calc.F |
233 |
SBO_CALC |
& rhoConst*etaN(i,j,bi,bj)*darea + |
|
./pkg/sbo/sbo_calc.F |
255 |
SBO_CALC |
Mload(i,j,bi,bj) = rhoConst*etaN(i,j,bi,bj) + |
|
./pkg/sbo/sbo_calc.F |
257 |
SBO_CALC |
& GCload - R_low(i,j,bi,bj)*rhoConst |
|
./pkg/sbo/sbo_calc.F |
353 |
SBO_CALC |
& * rhoConst * ae * dvolume |
|
./pkg/sbo/sbo_calc.F |
358 |
SBO_CALC |
& * rhoConst * ae * dvolume |
|
./pkg/sbo/sbo_calc.F |
361 |
SBO_CALC |
& * rhoConst * ae * dvolume |
|
./pkg/seaice/seaice_calc_ice_strength.F |
168 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1 = SEAICE_cf*0.5*gravity*(rhoConst-SEAICE_rhoIce) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
169 |
SEAICE_CALC_ICE_STRENGTH |
& * SEAICE_rhoIce/rhoConst |
|
./pkg/seaice/seaice_growth.F |
1059 |
SEAICE_GROWTH |
tmpscal2= - (HeatCapacity_Cp*rhoConst * recip_QI) |
|
./pkg/seaice/seaice_growth.F |
2460 |
SEAICE_GROWTH |
tmpscal2 = MIN(tmpscal1,heffTooHeavy*rhoConst) |
|
./pkg/shelfice/shelfice_init_fixed.F |
163 |
SHELFICE_INIT_FIXED |
& - rhoConst*Ro_surf(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
181 |
SHELFICE_INIT_FIXED |
& *(shelficeMassInit(i,j,bi,bj)+rhoConst*Ro_surf(i,j,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
583 |
SHELFICE_THERMODYNAMICS |
& *( shelficeMass(i,j,bi,bj) + rhoConst*Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_eos.F |
534 |
EOS_CHECK |
& rhoLoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/ini_linear_phisurf.F |
102 |
INI_LINEAR_PHISURF |
recip_Bo(i,j,bi,bj) = rhoConst |
|
./pkg/thsice/thsice_readparms.F |
110 |
THSICE_READPARMS |
rhosw = rhoConst |
|
./model/src/ini_parms.F |
1454 |
INI_PARMS |
rUnit2mass = rhoConst |
|
./model/src/ini_parms.F |
223 |
INI_PARMS |
& rhoConst, thetaConst, rhoConstFresh, buoyancyRelation, |
|
./model/src/ini_parms.F |
448 |
INI_PARMS |
IF ( rhoConst .EQ. UNSET_RL ) rhoConst=rhoNil |
|
./model/src/ini_parms.F |
449 |
INI_PARMS |
IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst |
|
./model/src/ini_parms.F |
636 |
INI_PARMS |
IF ( rhoConst .LE. 0. ) THEN |
|
./model/src/ini_parms.F |
643 |
INI_PARMS |
recip_rhoConst = 1. _d 0 / rhoConst |
|
./model/src/pressure_for_eos.F |
59 |
PRESSURE_FOR_EOS |
locPres(i,j) = rhoConst*( |
|
./model/src/pressure_for_eos.F |
77 |
PRESSURE_FOR_EOS |
locPres(i,j) = rhoConst*( |
|
./model/src/pressure_for_eos.F |
99 |
PRESSURE_FOR_EOS |
locPres(i,j) = rhoConst*phiRef(2*k) |
|
./model/src/set_defaults.F |
108 |
SET_DEFAULTS |
rhoConst = UNSET_RL |
|
./model/src/set_ref_state.F |
100 |
SET_REF_STATE |
& + rhoConst*(rF(k+1)-rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
107 |
SET_REF_STATE |
pRef4EOS(k) = rhoConst*phiRef(2*k) |
|
./model/src/set_ref_state.F |
108 |
SET_REF_STATE |
pRefLocF(k+1) = rhoConst*phiRef(2*k+1) |
|
./model/src/set_ref_state.F |
120 |
SET_REF_STATE |
pRef4EOS(k) = rhoConst*phiRef(2*k) |
|
./model/src/set_ref_state.F |
121 |
SET_REF_STATE |
pRefLocF(k+1) = rhoConst*phiRef(2*k+1) |
|
./model/src/set_ref_state.F |
178 |
SET_REF_STATE |
maxResid = rhoConst* 1. _d -14 |
|
./model/src/set_ref_state.F |
343 |
SET_REF_STATE |
rhoFacC(k) = rho1Ref(k)/rhoConst |
|
./model/src/set_ref_state.F |
98 |
SET_REF_STATE |
& + rhoConst*(rC(k) - rF(1))*gravity*gravitySign |
|
./pkg/cost/cost_atlantic_heat.F |
192 |
COST_ATLANTIC_HEAT |
& sum*HeatCapacity_Cp*rhoConst/petawatt |
|
./pkg/ecco/cost_averagesfields.F |
628 |
COST_AVERAGESFIELDS |
prmm = rhoConst*( |