| File |
Line number |
Procedure |
Code |
|
./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/ini_eos.F |
409 |
CHECK_EOS |
& ' = ', rholoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/ini_eos.F |
418 |
CHECK_EOS |
& ' = ', rholoc(i,j)+rhoConst, bulkMod(i,j) |
|
./model/src/calc_phi_hyd.F |
250 |
CALC_PHI_HYD |
locAlpha=alphaRho(i,j)+rhoConst |
|
./pkg/thsice/thsice_readparms.F |
87 |
THSICE_READPARMS |
rhosw = rhoConst |
|
./model/src/ini_linear_phisurf.F |
114 |
INI_LINEAR_PHISURF |
rhoLoc = rhoLoc + rhoConst |
|
./model/src/ini_linear_phisurf.F |
98 |
INI_LINEAR_PHISURF |
recip_Bo(I,J,bi,bj) = rhoConst |
|
./pkg/timeave/timeave_surf_flux.F |
102 |
TIMEAVE_SURF_FLUX |
& recip_horiVertRatio*rhoConst |
|
./pkg/timeave/timeave_surf_flux.F |
79 |
TIMEAVE_SURF_FLUX |
& *HeatCapacity_Cp*recip_horiVertRatio*rhoConst |
|
./model/src/config_summary.F |
196 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( rhoConst, INDEX_NONE,'rhoConst =', |
|
./model/src/external_forcing_surf.F |
132 |
EXTERNAL_FORCING_SURF |
tmpFac = HeatCapacity_Cp*recip_horiVertRatio*rhoConst |
|
./model/src/external_forcing_surf.F |
138 |
EXTERNAL_FORCING_SURF |
tmpFac = recip_horiVertRatio*rhoConst |
|
./model/src/find_rho.F |
101 |
FIND_RHO |
sigRef=eosSig0(kRef) + (1000.-rhoConst) |
|
./model/src/find_rho.F |
166 |
FIND_RHO |
& - rhoConst |
|
./model/src/find_rho.F |
191 |
FIND_RHO |
rholoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst |
|
./model/src/find_rho.F |
717 |
FIND_RHO_SCALAR |
rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst |
|
./model/src/find_rho.F |
749 |
FIND_RHO_SCALAR |
rhoLoc = rhoNum*rhoDen - rhoConst |
|
./model/src/find_rho.F |
86 |
FIND_RHO |
dRho = rhoNil-rhoConst |
|
./model/src/ini_parms.F |
1164 |
INI_PARMS |
horiVertRatio = Gravity * rhoConst |
|
./model/src/ini_parms.F |
169 |
INI_PARMS |
& rhoConst, rhoConstFresh, buoyancyRelation, HeatCapacity_Cp, |
|
./model/src/ini_parms.F |
340 |
INI_PARMS |
rhoConst = UNSET_RL |
|
./model/src/ini_parms.F |
402 |
INI_PARMS |
IF ( rhoConst .EQ. UNSET_RL ) rhoConst=rhoNil |
|
./model/src/ini_parms.F |
403 |
INI_PARMS |
IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst |
|
./model/src/ini_parms.F |
574 |
INI_PARMS |
IF ( rhoConst .LE. 0. ) THEN |
|
./model/src/ini_parms.F |
580 |
INI_PARMS |
recip_rhoConst = 1.D0 / rhoConst |
|
./model/src/pressure_for_eos.F |
60 |
PRESSURE_FOR_EOS |
locPres(i,j) = rhoConst*( |
|
./model/src/pressure_for_eos.F |
69 |
PRESSURE_FOR_EOS |
locPres(i,j) = -rhoConst*rC(k)*gravity |
|
./model/inc/PARAMS.h |
591 |
NO PROCEDURE |
& recip_rhoConst, rhoConst, |
|
./model/inc/PARAMS.h |
679 |
NO PROCEDURE |
_RL rhoConst |
|
./pkg/kpp/kpp_routines.F |
1476 |
STATEKPP |
RHO1(I,J) = WORK1(I,J) + rhoConst |
|
./pkg/kpp/kpp_routines.F |
1551 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/kpp/kpp_routines.F |
1553 |
STATEKPP |
& (RHOK(I,J) + rhoConst) |
|
./pkg/cost/cost_atlantic_heat.F |
175 |
COST_ATLANTIC_HEAT |
& sum*HeatCapacity_Cp*rhoConst/petawatt |
|
./pkg/offline/offline_fields_load.F |
370 |
OFFLINE_FIELDS_LOAD |
& (HeatCapacity_Cp*recip_horiVertRatio*rhoConst) |
|
./pkg/offline/offline_fields_load.F |
374 |
OFFLINE_FIELDS_LOAD |
& (recip_horiVertRatio*rhoConst) |
|
./model/src/diags_oceanic_surf_flux.F |
111 |
DIAGS_OCEANIC_SURF_FLUX |
& recip_horiVertRatio*rhoConst |
|
./model/src/diags_oceanic_surf_flux.F |
78 |
DIAGS_OCEANIC_SURF_FLUX |
& *HeatCapacity_Cp*recip_horiVertRatio*rhoConst |
|
./model/src/diags_oceanic_surf_flux.F |
99 |
DIAGS_OCEANIC_SURF_FLUX |
tmpFac = HeatCapacity_Cp*recip_horiVertRatio*rhoConst |
|
./pkg/seaice/growth.F |
263 |
GROWTH |
& *HeatCapacity_Cp*recip_horiVertRatio*rhoConst |
|
./model/src/quasihydrostaticterms.F |
37 |
QUASIHYDROSTATICTERMS |
scalingFactor=rhoConst/gravity |
|
./pkg/monitor/mon_surfcor.F |
182 |
MON_SURFCOR |
wT_Heat = wT_Heat * rhoConst*recip_horiVertRatio |
|
./pkg/monitor/mon_surfcor.F |
183 |
MON_SURFCOR |
theta2PE = theta2PE * rhoConst*recip_horiVertRatio |