Skip to content

Commit e2be482

Browse files
committed
Fix 4 conversion arguments to var_desc calls
Corrected 4 conversion arguments in calls to var_desc for temperatures and salinities, so that they are consistent with the units of these variables and the described purpose of the conversion element of the var_desc type. Until the conversion arguments to modify_vardesc and query_vardesc, these incorrect values were inconsequential, but now they need to be fixed before they are inadvertently used. All answers are bitwise identical.
1 parent cb2f490 commit e2be482

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/core/MOM.F90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2711,20 +2711,20 @@ subroutine initialize_MOM(Time, Time_init, param_file, dirs, CS, &
27112711
if (CS%tv%T_is_conT) then
27122712
vd_T = var_desc(name="contemp", units="Celsius", longname="Conservative Temperature", &
27132713
cmor_field_name="bigthetao", cmor_longname="Sea Water Conservative Temperature", &
2714-
conversion=US%Q_to_J_kg*CS%tv%C_p)
2714+
conversion=US%C_to_degC)
27152715
else
27162716
vd_T = var_desc(name="temp", units="degC", longname="Potential Temperature", &
27172717
cmor_field_name="thetao", cmor_longname="Sea Water Potential Temperature", &
2718-
conversion=US%Q_to_J_kg*CS%tv%C_p)
2718+
conversion=US%C_to_degC)
27192719
endif
27202720
if (CS%tv%S_is_absS) then
27212721
vd_S = var_desc(name="abssalt", units="g kg-1", longname="Absolute Salinity", &
27222722
cmor_field_name="absso", cmor_longname="Sea Water Absolute Salinity", &
2723-
conversion=0.001*US%S_to_ppt)
2723+
conversion=US%S_to_ppt)
27242724
else
27252725
vd_S = var_desc(name="salt", units="psu", longname="Salinity", &
27262726
cmor_field_name="so", cmor_longname="Sea Water Salinity", &
2727-
conversion=0.001*US%S_to_ppt)
2727+
conversion=US%S_to_ppt)
27282728
endif
27292729

27302730
if (advect_TS) then

0 commit comments

Comments
 (0)