Symbol Description Uses
mass2rUnit units conversion factor (surface forcing), from mass per unit area [kg/m2] to vertical r-coordinate unit. z-coord: = 1/rhoConst ( [kg/m2] / rho = [m] ) ; p-coord: = gravity ( [kg/m2] * g = [Pa] ) ; 76


File Line number Procedure Code
./model/inc/PARAMS.h 742 NO PROCEDURE 
     & rVel2wUnit, wUnit2rVel, mass2rUnit, rUnit2mass,
./model/inc/PARAMS.h 844 NO PROCEDURE 
      _RL mass2rUnit, rUnit2mass
./pkg/icefront/icefront_thermodynamics.F 151 ICEFRONT_THERMODYNAMICS 
     &           mass2rUnit * sLoc
./pkg/icefront/icefront_thermodynamics.F 92 ICEFRONT_THERMODYNAMICS 
      eps5 = mass2rUnit/HeatCapacity_Cp
./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_div_ghat.F 184 CALC_DIV_GHAT 
     &         - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTmom
./model/src/calc_div_ghat.F 192 CALC_DIV_GHAT 
     &         - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTmom
./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
./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/my82/my82_ri_number.F 115 MY82_RI_NUMBER 
        buoyFreq(I,J) = gravity*mass2rUnit *
./pkg/offline/offline_fields_load.F 378 OFFLINE_FIELDS_LOAD 
     &                      *recip_Cp*mass2rUnit
./pkg/offline/offline_fields_load.F 382 OFFLINE_FIELDS_LOAD 
     &                               *mass2rUnit
./model/src/config_summary.F 622 CONFIG_SUMMARY 
       CALL WRITE_0D_RL( mass2rUnit, INDEX_NONE,'mass2rUnit =',
./model/src/config_summary.F 628 CONFIG_SUMMARY 
       CALL WRITE_0D_RL( mass2rUnit, INDEX_NONE,'mass2rUnit =',
./pkg/pp81/pp81_ri_number.F 119 PP81_RI_NUMBER 
        buoyFreq = - gravity*mass2rUnit *
./pkg/ptracers/ptracers_forcing_surf.F 132 PTRACERS_FORCING_SURF 
     &          *mass2rUnit
./pkg/ptracers/ptracers_forcing_surf.F 162 PTRACERS_FORCING_SURF 
     &          *mass2rUnit
./pkg/ptracers/ptracers_forcing_surf.F 183 PTRACERS_FORCING_SURF 
     &            *mass2rUnit
./pkg/salt_plume/salt_plume_forcing_surf.F 60 SALT_PLUME_FORCING_SURF 
     &       - saltPlumeFlux(i,j,bi,bj) * mass2rUnit
./pkg/salt_plume/salt_plume_tendency_apply_s.F 64 SALT_PLUME_TENDENCY_APPLY_S 
     &            +saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J)*mass2rUnit
./model/src/external_forcing.F 297 EXTERNAL_FORCING_T 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 308 EXTERNAL_FORCING_T 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 373 EXTERNAL_FORCING_T 
     &    *recip_Cp*mass2rUnit
./model/src/external_forcing.F 481 EXTERNAL_FORCING_S 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 492 EXTERNAL_FORCING_S 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./pkg/shelfice/shelfice_thermodynamics.F 181 SHELFICE_THERMODYNAMICS 
     &           *recip_Cp*mass2rUnit
./pkg/shelfice/shelfice_thermodynamics.F 182 SHELFICE_THERMODYNAMICS 
     &           - cFac * shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit
./pkg/shelfice/shelfice_thermodynamics.F 185 SHELFICE_THERMODYNAMICS 
     &           shelfIceFreshWaterFlux(I,J,bi,bj) * mass2rUnit
./pkg/shelfice/shelfice_thermodynamics.F 281 SHELFICE_THERMODYNAMICS 
     &           - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit )
./pkg/shelfice/shelfice_thermodynamics.F 285 SHELFICE_THERMODYNAMICS 
     &           - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit )
./model/src/external_forcing_surf.F 215 EXTERNAL_FORCING_SURF 
     &      fu(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 218 EXTERNAL_FORCING_SURF 
     &      fv(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 225 EXTERNAL_FORCING_SURF 
     &         ) *recip_Cp*mass2rUnit
./model/src/external_forcing_surf.F 228 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 281 EXTERNAL_FORCING_SURF 
     &          *mass2rUnit
./model/src/external_forcing_surf.F 292 EXTERNAL_FORCING_SURF 
     &          *mass2rUnit
./model/src/external_forcing_surf.F 316 EXTERNAL_FORCING_SURF 
     &           *mass2rUnit
./model/src/external_forcing_surf.F 327 EXTERNAL_FORCING_SURF 
     &           *mass2rUnit
./model/src/external_forcing_surf.F 342 EXTERNAL_FORCING_SURF 
     &           *mass2rUnit
./model/src/external_forcing_surf.F 353 EXTERNAL_FORCING_SURF 
     &           *mass2rUnit
./model/src/ini_parms.F 1288 INI_PARMS 
         mass2rUnit = gravity
./model/src/ini_parms.F 1291 INI_PARMS 
         mass2rUnit = recip_rhoConst
./model/src/integr_continuity.F 241 INTEGR_CONTINUITY 
     &               +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./model/src/integr_continuity.F 75 INTEGR_CONTINUITY 
       IF ( fluidIsWater.AND.useRealFreshWaterFlux ) facEmP=mass2rUnit
./model/src/integr_continuity.F 77 INTEGR_CONTINUITY 
       IF ( selectAddFluid.GE.1 ) facMass = mass2rUnit
./model/src/integrate_for_w.F 79 INTEGRATE_FOR_W 
     &                + mFld(i,j,k,bi,bj)*mass2rUnit
./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 198 EXTERNAL_FORCING_SURF 
     &      fu(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 201 EXTERNAL_FORCING_SURF 
     &      fv(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 211 EXTERNAL_FORCING_SURF 
     &         ) *recip_Cp*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 214 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 267 EXTERNAL_FORCING_SURF 
     &          *mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 278 EXTERNAL_FORCING_SURF 
     &          *mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 302 EXTERNAL_FORCING_SURF 
     &           *mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 313 EXTERNAL_FORCING_SURF 
     &           *mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 328 EXTERNAL_FORCING_SURF 
     &           *mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 339 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
./model/src/pre_cg3d.F 82 PRE_CG3D 
          tmpFac = freeSurfFac*mass2rUnit
./model/src/pre_cg3d.F 84 PRE_CG3D 
     &     tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow
./model/src/solve_for_pressure.F 133 SOLVE_FOR_PRESSURE 
         tmpFac = freeSurfFac*mass2rUnit
./model/src/solve_for_pressure.F 135 SOLVE_FOR_PRESSURE 
     &        tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow
./model/src/solve_for_pressure.F 164 SOLVE_FOR_PRESSURE 
     &      freeSurfFac*deltaTfreesurf*mass2rUnit*sumEmP/globalArea
./pkg/ebm/ebm_forcing_surf.F 66 EBM_FORCING_SURF 
     &      fu(i,j,bi,bj)*mass2rUnit
./pkg/ebm/ebm_forcing_surf.F 71 EBM_FORCING_SURF 
     &      fv(i,j,bi,bj)*mass2rUnit
./pkg/ebm/ebm_forcing_surf.F 74 EBM_FORCING_SURF 
     &      -Qnet(i,j,bi,bj)*recip_Cp*mass2rUnit
./pkg/ebm/ebm_forcing_surf.F 81 EBM_FORCING_SURF 
     &      EmPmR(i,j,bi,bj)*convertFW2Salt*mass2rUnit
./pkg/ebm/ebm_forcing_surf.F 83 EBM_FORCING_SURF 
     &         *convertFW2Salt*rhoConstFresh*mass2rUnit