From eb2c69f1dde9c955257f98fc183d62f606cf3e64 Mon Sep 17 00:00:00 2001 From: Gustavo Marques Date: Fri, 3 Aug 2018 16:53:25 -0600 Subject: [PATCH] Replace units (W/m^2 to J/m^2) in the comments --- src/core/MOM.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core/MOM.F90 b/src/core/MOM.F90 index a6206c2fec..5a648c4c9c 100644 --- a/src/core/MOM.F90 +++ b/src/core/MOM.F90 @@ -2817,7 +2817,7 @@ subroutine extract_surface_state(CS, sfc_state) if (G%mask2dT(i,j)>0.) then ! calculate freezing pot. temp. @ surface call calculate_TFreeze(sfc_state%SSS(i,j), 0.0, T_freeze, CS%tv%eqn_of_state) - ! time accumulated melt_potential, in W/m^2 + ! time accumulated melt_potential, in J/m^2 sfc_state%melt_potential(i,j) = sfc_state%melt_potential(i,j) + (CS%tv%C_p * CS%GV%Rho0 * & (sfc_state%SST(i,j) - T_freeze) * CS%Hmix) else