| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
739 |
NO PROCEDURE |
& rhonil, recip_rhonil, rhoConst, recip_rhoConst, |
|
./model/inc/PARAMS.h |
834 |
NO PROCEDURE |
_RL rhoConst, recip_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/kpp/kpp_routines.F |
1574 |
STATEKPP |
RHO1(I,J) = WORK1(I,J) + rhoConst |
|
./pkg/kpp/kpp_routines.F |
1646 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/kpp/kpp_routines.F |
1648 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
57 |
MOM_QUASIHYDROSTATIC |
scalingFactor=rhoConst*gravitySign*recip_gravity |
|
./pkg/mom_common/mom_u_bottomdrag.F |
69 |
MOM_U_BOTTOMDRAG |
dragFac = mass2rUnit*rhoConst |
|
./pkg/mom_common/mom_v_bottomdrag.F |
76 |
MOM_V_BOTTOMDRAG |
dragFac = mass2rUnit*rhoConst |
|
./model/src/calc_oce_mxlayer.F |
94 |
CALC_OCE_MXLAYER |
rhoBigNb = rhoConst*1. _d 10 |
|
./model/src/calc_phi_hyd.F |
289 |
CALC_PHI_HYD |
locAlpha=alphaRho(i,j)+rhoConst |
|
./pkg/opps/opps_calc.F |
492 |
OPPS_CALC |
pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
496 |
OPPS_CALC |
pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
525 |
OPPS_CALC |
dRho = rhoNil-rhoConst |
|
./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 |
|
./model/src/config_summary.F |
221 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( rhoConst, INDEX_NONE,'rhoConst =', |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
68 |
SALT_PLUME_CALC_DEPTH |
rhoBigNb = rhoConst*1. _d 10 |
|
./pkg/sbo/sbo_calc.F |
255 |
SBO_CALC |
density = rhoConst + rhoK(i,j) |
|
./pkg/seaice/seaice_growth.F |
1294 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)/rhoConst |
|
./pkg/seaice/seaice_growth.F |
1487 |
SEAICE_GROWTH |
tmpscal2 = min(tmpscal1,heffTooHeavy*rhoConst) |
|
./pkg/seaice/seaice_growth.F |
714 |
SEAICE_GROWTH |
& (HeatCapacity_Cp*rhoConst/QI) |
|
./pkg/seaice/seaice_growth.F |
719 |
SEAICE_GROWTH |
& (HeatCapacity_Cp*rhoConst/QI) |
|
./pkg/seaice/seaice_growth.F |
980 |
SEAICE_GROWTH |
& +HEFF(I,J,bi,bj)*SEAICE_rhoIce)/rhoConst |
|
./model/src/find_rho.F |
112 |
FIND_RHO_2D |
sigRef=eosSig0(kRef) + (1000.-rhoConst) |
|
./model/src/find_rho.F |
175 |
FIND_RHO_2D |
& - rhoConst |
|
./model/src/find_rho.F |
205 |
FIND_RHO_2D |
rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
97 |
FIND_RHO_2D |
dRho = rhoNil-rhoConst |
|
./pkg/thsice/thsice_readparms.F |
89 |
THSICE_READPARMS |
rhosw = rhoConst |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
100 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./model/src/ini_eos.F |
452 |
EOS_CHECK |
& rhoLoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/ini_linear_phisurf.F |
162 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./model/src/ini_parms.F |
1292 |
INI_PARMS |
rUnit2mass = rhoConst |
|
./model/src/ini_parms.F |
195 |
INI_PARMS |
& rhoConst, rhoConstFresh, buoyancyRelation, HeatCapacity_Cp, |
|
./model/src/ini_parms.F |
344 |
INI_PARMS |
rhoConst = UNSET_RL |
|
./model/src/ini_parms.F |
412 |
INI_PARMS |
IF ( rhoConst .EQ. UNSET_RL ) rhoConst=rhoNil |
|
./model/src/ini_parms.F |
413 |
INI_PARMS |
IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst |
|
./model/src/ini_parms.F |
575 |
INI_PARMS |
IF ( rhoConst .LE. 0. ) THEN |
|
./model/src/ini_parms.F |
581 |
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_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 |
282 |
SET_REF_STATE |
rhoFacC(k) = rho1Ref(k)/rhoConst |
|
./pkg/cost/cost_atlantic_heat.F |
190 |
COST_ATLANTIC_HEAT |
& sum*HeatCapacity_Cp*rhoConst/petawatt |