Skip to content

Commit

Permalink
+Add RZL2_to_kg element to unit_scale_type
Browse files Browse the repository at this point in the history
  Added the new element RZL2_to_kg to the unit_scale_type for convenience when
rescaling masses and other globally integrated variables.  All answers are
bitwise identical, but there is a new element in a transparent type.
  • Loading branch information
Hallberg-NOAA authored and marshallward committed Dec 12, 2024
1 parent a3cef87 commit 7060d51
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions src/framework/MOM_unit_scaling.F90
Original file line number Diff line number Diff line change
Expand Up @@ -47,6 +47,7 @@ module MOM_unit_scaling
real :: QRZ_T_to_W_m2 !< Convert heat fluxes from Q R Z T-1 to W m-2 [W T Q-1 R-1 Z-1 m-2 ~> 1]
! Not used enough: real :: kg_m2_to_RZ !< Convert mass loads from kg m-2 to R Z [R Z m2 kg-1 ~> 1]
real :: RZ_to_kg_m2 !< Convert mass loads from R Z to kg m-2 [kg R-1 Z-1 m-2 ~> 1]
real :: RZL2_to_kg !< Convert masses from R Z L2 to kg [kg R-1 Z-1 L-2 ~> 1]
real :: kg_m2s_to_RZ_T !< Convert mass fluxes from kg m-2 s-1 to R Z T-1 [R Z m2 s T-1 kg-1 ~> 1]
real :: RZ_T_to_kg_m2s !< Convert mass fluxes from R Z T-1 to kg m-2 s-1 [T kg R-1 Z-1 m-2 s-1 ~> 1]
real :: RZ3_T3_to_W_m2 !< Convert turbulent kinetic energy fluxes from R Z3 T-3 to W m-2 [W T3 R-1 Z-3 m-2 ~> 1]
Expand Down Expand Up @@ -224,6 +225,8 @@ subroutine set_unit_scaling_combos(US)
! Wind stresses:
US%RLZ_T2_to_Pa = US%R_to_kg_m3 * US%L_T_to_m_s**2 * US%Z_to_L
US%Pa_to_RLZ_T2 = US%kg_m3_to_R * US%m_s_to_L_T**2 * US%L_to_Z
! Masses:
US%RZL2_to_kg = US%R_to_kg_m3 * US%Z_to_m * US%L_to_m**2

end subroutine set_unit_scaling_combos

Expand Down

0 comments on commit 7060d51

Please sign in to comment.