| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
772 |
NO PROCEDURE |
& rhoNil, rhoConst, recip_rhoConst, thetaConst, |
|
./model/inc/PARAMS.h |
869 |
NO PROCEDURE |
_RL rhoConst, recip_rhoConst |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
245 |
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 |
396 |
GMREDI_K3D |
maxDRhoDz = -rhoConst*GM_K3D_minN2/gravity |
|
./pkg/gmredi/gmredi_readparms.F |
207 |
GMREDI_READPARMS |
GM_BVP_cHat2Min = GM_BVP_cMin**2*rhoConst/gravity |
|
./pkg/kpp/kpp_routines.F |
1650 |
STATEKPP |
RHO1(I,J) = WORK1(I,J) + rhoConst |
|
./pkg/kpp/kpp_routines.F |
1722 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/kpp/kpp_routines.F |
1724 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/layers/layers_calc.F |
138 |
LAYERS_CALC |
prho(i,j,k,bi,bj) = rhoConst + prho(i,j,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
71 |
CALC_EDDY_STRESS |
tauxEddy(i,j,k,bi,bj) = rhoConst*coriU*psiy |
|
./model/src/calc_eddy_stress.F |
91 |
CALC_EDDY_STRESS |
tauyEddy(i,j,k,bi,bj) = -rhoConst*coriV*psix |
|
./model/src/calc_oce_mxlayer.F |
95 |
CALC_OCE_MXLAYER |
rhoBigNb = rhoConst*1. _d 10 |
|
./model/src/calc_phi_hyd.F |
343 |
CALC_PHI_HYD |
locAlpha=alphaRho(i,j)+rhoConst |
|
./pkg/mom_common/mom_quasihydrostatic.F |
60 |
MOM_QUASIHYDROSTATIC |
scalingFactor=rhoConst*gravitySign*recip_gravity |
|
./pkg/mom_common/mom_u_bottomdrag.F |
74 |
MOM_U_BOTTOMDRAG |
dragFac = mass2rUnit*rhoConst |
|
./pkg/mom_common/mom_v_bottomdrag.F |
74 |
MOM_V_BOTTOMDRAG |
dragFac = mass2rUnit*rhoConst |
|
./model/src/config_summary.F |
287 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( rhoConst, INDEX_NONE,'rhoConst =', |
|
./pkg/opps/opps_calc.F |
483 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
487 |
OPPS_CALC |
pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj) |
|
./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 |
89 |
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 |
|
./model/src/find_rho.F |
102 |
FIND_RHO_2D |
dRho = rhoNil-rhoConst |
|
./model/src/find_rho.F |
117 |
FIND_RHO_2D |
sigRef=eosSig0(kRef) + (1000.-rhoConst) |
|
./model/src/find_rho.F |
180 |
FIND_RHO_2D |
& - rhoConst |
|
./model/src/find_rho.F |
210 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
233 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./pkg/seaice/seaice_calc_ice_strength.F |
165 |
SEAICE_CALC_ICE_STRENGTH |
tmpscal1 = SEAICE_cf*0.5*gravity*(rhoConst-SEAICE_rhoIce) |
|
./pkg/seaice/seaice_calc_ice_strength.F |
166 |
SEAICE_CALC_ICE_STRENGTH |
& * SEAICE_rhoIce/rhoConst |
|
./pkg/seaice/seaice_growth.F |
1041 |
SEAICE_GROWTH |
tmpscal2= - (HeatCapacity_Cp*rhoConst * recip_QI) |
|
./pkg/seaice/seaice_growth.F |
2420 |
SEAICE_GROWTH |
tmpscal2 = MIN(tmpscal1,heffTooHeavy*rhoConst) |
|
./pkg/shelfice/shelfice_init_fixed.F |
122 |
SHELFICE_INIT_FIXED |
& - rhoConst*Ro_surf(i,j,bi,bj) |
|
./pkg/shelfice/shelfice_init_fixed.F |
138 |
SHELFICE_INIT_FIXED |
& *( shelficeMass(i,j,bi,bj) + rhoConst*Ro_surf(i,j,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
521 |
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 |
1344 |
INI_PARMS |
rUnit2mass = rhoConst |
|
./model/src/ini_parms.F |
213 |
INI_PARMS |
& rhoConst, thetaConst, rhoConstFresh, buoyancyRelation, |
|
./model/src/ini_parms.F |
433 |
INI_PARMS |
IF ( rhoConst .EQ. UNSET_RL ) rhoConst=rhoNil |
|
./model/src/ini_parms.F |
434 |
INI_PARMS |
IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst |
|
./model/src/ini_parms.F |
596 |
INI_PARMS |
IF ( rhoConst .LE. 0. ) THEN |
|
./model/src/ini_parms.F |
603 |
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 |
68 |
PRESSURE_FOR_EOS |
locPres(i,j) = -rhoConst*rC(k)*gravity |
|
./model/src/set_defaults.F |
105 |
SET_DEFAULTS |
rhoConst = UNSET_RL |
|
./model/src/set_ref_state.F |
113 |
SET_REF_STATE |
pLoc = -rhoConst*rC(k)*gravity |
|
./model/src/set_ref_state.F |
122 |
SET_REF_STATE |
pLoc = -rhoConst*rF(k)*gravity |
|
./model/src/set_ref_state.F |
293 |
SET_REF_STATE |
rhoFacC(k) = rho1Ref(k)/rhoConst |
|
./pkg/cost/cost_atlantic_heat.F |
192 |
COST_ATLANTIC_HEAT |
& sum*HeatCapacity_Cp*rhoConst/petawatt |
|
./pkg/ecco/cost_averagesfields.F |
614 |
COST_AVERAGESFIELDS |
prmm = rhoConst*( |
|
./pkg/ecco/ecco_phys.F |
83 |
ECCO_PHYS |
& (rhoConst+RHOInSituLoc(i,j,k,bi,bj))* |