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


File Line number Procedure Code
./model/inc/PARAMS.h 826 NO PROCEDURE 
     & rVel2wUnit, wUnit2rVel, mass2rUnit, rUnit2mass,
./model/inc/PARAMS.h 939 NO PROCEDURE 
      _RL mass2rUnit, rUnit2mass
./pkg/frazil/frazil_calc_rhs.F 94 FRAZIL_CALC_RHS 
     &            * HeatCapacity_Cp * rUnit2mass
./pkg/icefront/icefront_thermodynamics.F 103 ICEFRONT_THERMODYNAMICS 
      eps1 = rUnit2mass*HeatCapacity_Cp*ICEFRONTheatTransCoeff(I,J)
./pkg/icefront/icefront_thermodynamics.F 104 ICEFRONT_THERMODYNAMICS 
      eps2 = rUnit2mass*ICEFRONTlatentHeat*ICEFRONTsaltTransCoeff(I,J)
./pkg/icefront/icefront_thermodynamics.F 105 ICEFRONT_THERMODYNAMICS 
      eps3 = rUnit2mass*ICEFRONTheatCapacity_Cp
./pkg/icefront/icefront_thermodynamics.F 151 ICEFRONT_THERMODYNAMICS 
     &           ( -rUnit2mass*ICEFRONTheatTransCoeff(I,J) +
./model/src/apply_forcing.F 619 APPLY_FORCING_T 
          tmpFac = rUnit2mass
./pkg/layers/layers_thermodynamics.F 63 LAYERS_CALC_RHS 
      fluxfac(1) = 1.0/(HeatCapacity_Cp*rUnit2mass)
./pkg/layers/layers_thermodynamics.F 64 LAYERS_CALC_RHS 
      fluxfac(2) = 1.0/rUnit2mass
./pkg/layers/layers_wsurf_tr.F 76 LAYERS_WSURF_TR 
     &           tcor * HeatCapacity_Cp * rUnit2mass
./pkg/layers/layers_wsurf_tr.F 80 LAYERS_WSURF_TR 
     &           scor * rUnit2mass
./pkg/monitor/mon_ke.F 317 MON_KE 
       totAMu = totAMu*rUnit2mass
./pkg/monitor/mon_ke.F 318 MON_KE 
       totAMs = totAMs*rUnit2mass
./pkg/monitor/mon_surfcor.F 189 MON_SURFCOR 
         wT_Heat  = wT_Heat  * rUnit2mass
./pkg/monitor/mon_surfcor.F 190 MON_SURFCOR 
         theta2PE = theta2PE * rUnit2mass
./model/src/config_summary.F 841 CONFIG_SUMMARY 
       CALL WRITE_0D_RL( rUnit2mass, INDEX_NONE,'rUnit2mass =',
./model/src/config_summary.F 849 CONFIG_SUMMARY 
       CALL WRITE_0D_RL( rUnit2mass, INDEX_NONE,'rUnit2mass =',
./model/src/diags_oceanic_surf_flux.F 104 DIAGS_OCEANIC_SURF_FLUX 
       tmpFac = HeatCapacity_Cp*rUnit2mass
./model/src/diags_oceanic_surf_flux.F 109 DIAGS_OCEANIC_SURF_FLUX 
       tmpFac = rUnit2mass
./model/src/diags_oceanic_surf_flux.F 126 DIAGS_OCEANIC_SURF_FLUX 
     &      *HeatCapacity_Cp*rUnit2mass
./model/src/diags_oceanic_surf_flux.F 158 DIAGS_OCEANIC_SURF_FLUX 
     &      surfaceForcingS(i,j,bi,bj)*rUnit2mass
./model/src/diags_oceanic_surf_flux.F 99 DIAGS_OCEANIC_SURF_FLUX 
       tmpFac = HeatCapacity_Cp*rUnit2mass
./pkg/ptracers/ptracers_forcing_surf.F 90 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./pkg/ptracers/ptracers_forcing_surf.F 98 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./model/src/external_forcing.F 491 EXTERNAL_FORCING_T 
          tmpFac = rUnit2mass
./model/src/forcing_surf_relax.F 248 FORCING_SURF_RELAX 
        tmpFac = HeatCapacity_Cp*rUnit2mass
./model/src/forcing_surf_relax.F 253 FORCING_SURF_RELAX 
        tmpFac = rUnit2mass
./pkg/shap_filt/shap_filt_apply_uv.F 172 SHAP_FILT_APPLY_UV 
     &                           - dKE_shap(i,j)*drF(k)*rUnit2mass
./pkg/shelfice/shelfice_thermodynamics.F 410 SHELFICE_THERMODYNAMICS 
     &           * HeatCapacity_Cp*rUnit2mass
./pkg/shelfice/shelfice_thermodynamics.F 458 SHELFICE_THERMODYNAMICS 
            eps1 = rUnit2mass*HeatCapacity_Cp
./pkg/shelfice/shelfice_thermodynamics.F 460 SHELFICE_THERMODYNAMICS 
            eps2 = rUnit2mass*SHELFICElatentHeat
./pkg/shelfice/shelfice_thermodynamics.F 462 SHELFICE_THERMODYNAMICS 
            eps5 = rUnit2mass*HeatCapacity_Cp
./pkg/shelfice/shelfice_thermodynamics.F 479 SHELFICE_THERMODYNAMICS 
            eps8 = rUnit2mass*SHELFICEheatCapacity_Cp
./pkg/shelfice/shelfice_thermodynamics.F 509 SHELFICE_THERMODYNAMICS 
             print *, 'ml-shelfice: rU2mass = ', rUnit2mass
./pkg/shelfice/shelfice_thermodynamics.F 533 SHELFICE_THERMODYNAMICS 
            freshWaterFlux = rUnit2mass
./pkg/shelfice/shelfice_thermodynamics.F 598 SHELFICE_THERMODYNAMICS 
       tmpFac = HeatCapacity_Cp*rUnit2mass
./pkg/shelfice/shelfice_thermodynamics.F 602 SHELFICE_THERMODYNAMICS 
       tmpFac = rUnit2mass
./model/src/ini_parms.F 1451 INI_PARMS 
         rUnit2mass = recip_gravity
./model/src/ini_parms.F 1454 INI_PARMS 
         rUnit2mass = rhoConst
./pkg/timeave/timeave_surf_flux.F 72 TIMEAVE_SURF_FLUX 
     &    *HeatCapacity_Cp*rUnit2mass
./pkg/timeave/timeave_surf_flux.F 93 TIMEAVE_SURF_FLUX 
     &    surfaceForcingS(i,j,bi,bj)*rUnit2mass
./model/src/integr_continuity.F 155 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = PmEpR(i,j,bi,bj)*rUnit2mass
./verification/rotating_tank/code/apply_forcing.F 622 APPLY_FORCING_T 
          tmpFac = rUnit2mass
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 101 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 93 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 88 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 96 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 88 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 96 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./pkg/aim_v23/aim_tendency_apply.F 102 AIM_TENDENCY_APPLY_U 
     &                       *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/aim_v23/aim_tendency_apply.F 290 AIM_TENDENCY_APPLY_V 
     &                       *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/atm_phys/atm_phys_tendency_apply.F 166 ATM_PHYS_TENDENCY_APPLY_V 
     &                        *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/atm_phys/atm_phys_tendency_apply.F 78 ATM_PHYS_TENDENCY_APPLY_U 
     &                       *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/ebm/ebm_wind_perturb.F 134 EBM_WIND_PERTURB 
     &                    + winPert(i,j,bi,bj)*rUnit2mass