| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
775 |
NO PROCEDURE |
& rVel2wUnit, wUnit2rVel, mass2rUnit, rUnit2mass, |
|
./model/inc/PARAMS.h |
880 |
NO PROCEDURE |
_RL mass2rUnit, rUnit2mass |
|
./pkg/frazil/frazil_tendency_apply.F |
61 |
FRAZIL_TENDENCY_APPLY_T |
& * recip_Cp * mass2rUnit |
|
./pkg/icefront/icefront_thermodynamics.F |
107 |
ICEFRONT_THERMODYNAMICS |
eps5 = mass2rUnit/HeatCapacity_Cp |
|
./pkg/icefront/icefront_thermodynamics.F |
157 |
ICEFRONT_THERMODYNAMICS |
& mass2rUnit * sLoc |
|
./pkg/kl10/kl10_calc.F |
125 |
KL10_CALC |
b0 = MAX(-gravity*mass2rUnit* |
|
./pkg/kl10/kl10_calc.F |
135 |
KL10_CALC |
buoyFreqf = -gravity*mass2rUnit* |
|
./pkg/kl10/kl10_calc.F |
139 |
KL10_CALC |
buoyFreqf = -gravity*mass2rUnit* |
|
./model/src/apply_forcing.F |
505 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
516 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
533 |
APPLY_FORCING_T |
tmpFac = (tmpFac/atm_Cp) * mass2rUnit |
|
./model/src/apply_forcing.F |
536 |
APPLY_FORCING_T |
tmpFac = recip_Cp * mass2rUnit |
|
./model/src/apply_forcing.F |
651 |
APPLY_FORCING_T |
& *recip_Cp*mass2rUnit |
|
./model/src/apply_forcing.F |
678 |
APPLY_FORCING_T |
& *recip_Cp*mass2rUnit |
|
./model/src/apply_forcing.F |
880 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/apply_forcing.F |
891 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/calc_div_ghat.F |
187 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom |
|
./model/src/calc_div_ghat.F |
195 |
CALC_DIV_GHAT |
& - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom |
|
./pkg/longstep/longstep_forcing_surf.F |
122 |
LONGSTEP_FORCING_SURF |
& *mass2rUnit |
|
./pkg/longstep/longstep_forcing_surf.F |
146 |
LONGSTEP_FORCING_SURF |
& *mass2rUnit |
|
./pkg/longstep/longstep_forcing_surf.F |
89 |
LONGSTEP_FORCING_SURF |
& *mass2rUnit |
|
./model/src/calc_gw.F |
577 |
CALC_GW |
& + wVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./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 |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
77 |
MOM_CALC_RTRANS |
rTransU(i,j) = mass2rUnit* |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
80 |
MOM_CALC_RTRANS |
rTransV(i,j) = mass2rUnit* |
|
./pkg/mom_fluxform/mom_fluxform.F |
489 |
MOM_FLUXFORM |
& + uVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_fluxform.F |
716 |
MOM_FLUXFORM |
& + vVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0 |
|
./pkg/my82/my82_ri_number.F |
115 |
MY82_RI_NUMBER |
buoyFreq(I,J) = gravity*mass2rUnit * |
|
./model/src/config_summary.F |
747 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( mass2rUnit, INDEX_NONE,'mass2rUnit =', |
|
./model/src/config_summary.F |
753 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( mass2rUnit, INDEX_NONE,'mass2rUnit =', |
|
./pkg/offline/offline_fields_load.F |
429 |
OFFLINE_FIELDS_LOAD |
& *mass2rUnit |
|
./pkg/offline/offline_get_surfforcing.F |
69 |
OFFLINE_GET_SURFFORCING |
& *mass2rUnit |
|
./pkg/pp81/pp81_ri_number.F |
119 |
PP81_RI_NUMBER |
buoyFreq = - gravity*mass2rUnit * |
|
./pkg/ptracers/ptracers_forcing_surf.F |
135 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./pkg/ptracers/ptracers_forcing_surf.F |
166 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./pkg/ptracers/ptracers_forcing_surf.F |
188 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./pkg/salt_plume/salt_plume_apply.F |
121 |
SALT_PLUME_APPLY |
recip_ConvertFac = mass2rUnit/HeatCapacity_Cp |
|
./pkg/salt_plume/salt_plume_apply.F |
129 |
SALT_PLUME_APPLY |
recip_ConvertFac = mass2rUnit |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
68 |
SALT_PLUME_FORCING_SURF |
& - SPforcS1(i,j,bi,bj) * mass2rUnit |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
70 |
SALT_PLUME_FORCING_SURF |
& - SPforcT1(i,j,bi,bj) * mass2rUnit / HeatCapacity_Cp |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
73 |
SALT_PLUME_FORCING_SURF |
& - saltPlumeFlux(i,j,bi,bj) * mass2rUnit |
|
./model/src/external_forcing.F |
392 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
403 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
420 |
EXTERNAL_FORCING_T |
tmpFac = (tmpFac/atm_Cp) * mass2rUnit |
|
./model/src/external_forcing.F |
423 |
EXTERNAL_FORCING_T |
tmpFac = recip_Cp * mass2rUnit |
|
./model/src/external_forcing.F |
550 |
EXTERNAL_FORCING_T |
& *recip_Cp*mass2rUnit |
|
./model/src/external_forcing.F |
715 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
726 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
112 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
150 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
61 |
SALT_PLUME_TENDENCY_APPLY_T |
& *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
150 |
SALT_PLUME_VOLFRAC |
SPbrineVolFlux(i,j,bi,bj)=dMbdt(i,j)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
207 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
209 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
216 |
EXTERNAL_FORCING_SURF |
& ) *recip_Cp*mass2rUnit |
|
./model/src/external_forcing_surf.F |
219 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./model/src/external_forcing_surf.F |
260 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./model/src/external_forcing_surf.F |
271 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./model/src/external_forcing_surf.F |
295 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./model/src/external_forcing_surf.F |
306 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./model/src/external_forcing_surf.F |
321 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./model/src/external_forcing_surf.F |
332 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
365 |
SHELFICE_THERMODYNAMICS |
& *recip_Cp*mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
366 |
SHELFICE_THERMODYNAMICS |
& - cFac * shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
369 |
SHELFICE_THERMODYNAMICS |
& shelfIceFreshWaterFlux(I,J,bi,bj) * mass2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
494 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
498 |
SHELFICE_THERMODYNAMICS |
& - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit ) |
|
./model/src/ini_parms.F |
1340 |
INI_PARMS |
mass2rUnit = gravity |
|
./model/src/ini_parms.F |
1343 |
INI_PARMS |
mass2rUnit = recip_rhoConst |
|
./model/src/integr_continuity.F |
271 |
INTEGR_CONTINUITY |
& +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
88 |
INTEGR_CONTINUITY |
IF ( fluidIsWater.AND.useRealFreshWaterFlux ) facEmP=mass2rUnit |
|
./model/src/integr_continuity.F |
90 |
INTEGR_CONTINUITY |
IF ( selectAddFluid.GE.1 ) facMass = mass2rUnit |
|
./model/src/integrate_for_w.F |
85 |
INTEGRATE_FOR_W |
& + mFld(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
522 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
533 |
APPLY_FORCING_T |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
550 |
APPLY_FORCING_T |
tmpFac = (tmpFac/atm_Cp) * mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
553 |
APPLY_FORCING_T |
tmpFac = recip_Cp * mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
680 |
APPLY_FORCING_T |
& *recip_Cp*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
942 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./verification/rotating_tank/code/apply_forcing.F |
953 |
APPLY_FORCING_S |
& + addMass(i,j,k,bi,bj)*mass2rUnit |
|
./model/src/pre_cg3d.F |
79 |
PRE_CG3D |
tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
133 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
163 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
184 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
204 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
206 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
216 |
EXTERNAL_FORCING_SURF |
& ) *recip_Cp*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
219 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
255 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
266 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
290 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
301 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
316 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
327 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
204 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
206 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
216 |
EXTERNAL_FORCING_SURF |
& ) *recip_Cp*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
219 |
EXTERNAL_FORCING_SURF |
& -saltFlux(i,j,bi,bj)*mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
255 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
266 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
290 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
301 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
316 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
327 |
EXTERNAL_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
132 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
162 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
183 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
132 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
162 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
183 |
PTRACERS_FORCING_SURF |
& *mass2rUnit |
|
./model/src/solve_for_pressure.F |
130 |
SOLVE_FOR_PRESSURE |
tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow |
|
./model/src/solve_for_pressure.F |
160 |
SOLVE_FOR_PRESSURE |
& freeSurfFac*deltaTFreeSurf*mass2rUnit*sumEmP/globalArea |