| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_bulkformulae.F |
243 |
EXF_BULKFORMULAE |
recip_rhoConstFresh = 1. _d 0/rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
125 |
EXF_MAPFIELDS |
& *rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
131 |
EXF_MAPFIELDS |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh* |
|
./pkg/exf/exf_mapfields.F |
155 |
EXF_MAPFIELDS |
& + flami*snowPrecip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
159 |
EXF_MAPFIELDS |
& *rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
170 |
EXF_MAPFIELDS |
& + flami*precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
176 |
EXF_MAPFIELDS |
& *precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
188 |
EXF_MAPFIELDS |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
198 |
EXF_MAPFIELDS |
& *evap(i,j,bi,bj)*rhoConstFresh |
|
./pkg/exf/exf_mapfields.F |
213 |
EXF_MAPFIELDS |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./model/inc/PARAMS.h |
774 |
NO PROCEDURE |
& rhoConstFresh, rho1Ref, tRef, sRef, phiRef, dBdrRef, |
|
./model/inc/PARAMS.h |
873 |
NO PROCEDURE |
_RL rhoConstFresh |
|
./pkg/land/land_readparms.F |
149 |
LAND_READPARMS |
land_rhoLiqW = rhoConstFresh |
|
./model/src/config_summary.F |
293 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( rhoConstFresh, INDEX_NONE,'rhoConstFresh =', |
|
./model/src/external_fields_load.F |
151 |
EXTERNAL_FIELDS_LOAD |
EmPmR0(i,j,bi,bj) = EmPmR0(i,j,bi,bj)*rhoConstFresh |
|
./model/src/external_fields_load.F |
152 |
EXTERNAL_FIELDS_LOAD |
EmPmR1(i,j,bi,bj) = EmPmR1(i,j,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_budget_ocean.F |
149 |
SEAICE_BUDGET_OCEAN |
empmr(i,j,bi,bj) = sflux(i,j,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_budget_ocean.F |
83 |
SEAICE_BUDGET_OCEAN |
recip_rhoConstFresh = 1./rhoConstFresh |
|
./pkg/seaice/seaice_fake.F |
68 |
SEAICE_FAKE |
& )*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2224 |
SEAICE_GROWTH |
tmpscal3=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2283 |
SEAICE_GROWTH |
tmpscal1 = rhoConstFresh*maskC(I,J,kSurface,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2287 |
SEAICE_GROWTH |
tmpscal2=rhoConstFresh*maskC(I,J,kSurface,bi,bj)* |
|
./pkg/seaice/seaice_growth.F |
2343 |
SEAICE_GROWTH |
& )*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2357 |
SEAICE_GROWTH |
& )*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2373 |
SEAICE_GROWTH |
& )*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2392 |
SEAICE_GROWTH |
& )*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
2538 |
SEAICE_GROWTH |
DIAGarrayB(I,J) = -maskC(I,J,kSurface,bi,bj)*rhoConstFresh |
|
./pkg/seaice/seaice_growth.F |
361 |
SEAICE_GROWTH |
convertPRECIP2HI=SEAICE_deltaTtherm*rhoConstFresh/SEAICE_rhoIce |
|
./pkg/shelfice/shelfice_cost_final.F |
81 |
SHELFICE_COST_FINAL |
& + cMeanSHIforS(i,j,bi,bj)/lastinterval/rhoConstFresh |
|
./model/src/ini_forcing.F |
162 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
102 |
THSICE_MAP_EXF |
snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
117 |
THSICE_MAP_EXF |
& *( precip(i,j,bi,bj)*rhoConstFresh - snowPrc(i,j) ) |
|
./pkg/thsice/thsice_map_exf.F |
123 |
THSICE_MAP_EXF |
& *runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
72 |
THSICE_MAP_EXF |
totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
75 |
THSICE_MAP_EXF |
totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_map_exf.F |
91 |
THSICE_MAP_EXF |
snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh |
|
./pkg/thsice/thsice_readparms.F |
111 |
THSICE_READPARMS |
rhofw = rhoConstFresh |
|
./model/src/ini_parms.F |
213 |
INI_PARMS |
& rhoConst, thetaConst, rhoConstFresh, buoyancyRelation, |
|
./model/src/ini_parms.F |
434 |
INI_PARMS |
IF ( rhoConstFresh .EQ. UNSET_RL ) rhoConstFresh=rhoConst |
|
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F |
137 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F |
137 |
INI_FORCING |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./model/src/set_defaults.F |
109 |
SET_DEFAULTS |
rhoConstFresh = UNSET_RL |
|
./pkg/atm2d/put_ocnvars.F |
60 |
PUT_OCNVARS |
& + pass_runoff(i,j)) * rhoConstFresh |
|
./pkg/atm2d/put_ocnvars.F |
80 |
PUT_OCNVARS |
& + pass_runoff(i,j)) * rhoConstFresh |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
85 |
ATM_CPL_READ_PICKUP |
EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
86 |
ATM_CPL_READ_PICKUP |
RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
303 |
BULKF_FIELDS_LOAD |
empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_fields_load.F |
304 |
BULKF_FIELDS_LOAD |
empch1(i,j,bi,bj) = empch1(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
191 |
BULKF_FORCING |
& - runoff(i,j,bi,bj))*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
236 |
BULKF_FORCING |
& + Lfresh*rain(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
242 |
BULKF_FORCING |
& *rain(i,j,bi,bj)*rhoConstFresh |
|
./pkg/bulk_force/bulkf_forcing.F |
258 |
BULKF_FORCING |
& *HeatCapacity_Cp*rhoConstFresh |
|
./pkg/bulk_force/bulkf_readparms.F |
89 |
BULKF_READPARMS |
rhoFW = rhoConstFresh |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
149 |
CTRL_MAP_GENTIM2D |
& *rhoConstFresh*recip_rhoConst*deltaTClock |
|
./pkg/ebm/ebm_atmosphere.F |
363 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh |
|
./pkg/ecco/cost_averagesfields.F |
208 |
COST_AVERAGESFIELDS |
& *rhoConstFresh*recip_rhoConst*deltaTClock |
|
./pkg/ecco/cost_mean_saltflux.F |
119 |
COST_MEAN_SALTFLUX |
& + tmpx* _rA(i,j,bi,bj)/rhoConstFresh |