Ignores volume flux of sea ice via reverse engineering

NOAA-GFDL · Oct 15, 2018 · 6acc499 · 6acc499
1 parent 9b0af26
commit 6acc499
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/config_src/mct_driver/MOM_surface_forcing.F90 b/config_src/mct_driver/MOM_surface_forcing.F90
@@ -489,9 +489,12 @@ subroutine convert_IOB_to_fluxes(IOB, fluxes, Time, G, CS, &
       !   Bob thinks this is trying ensure the net fresh-water of the ocean + sea-ice system
       ! is constant.
       !   To do this correctly we will need a sea-ice melt field added to IOB. -AJA
-      if (associated(fluxes%salt_flux) .and. (CS%ice_salt_concentration>0.0)) &
-          net_FW(i,j) = net_FW(i,j) + G%areaT(i,j) * &
-          (fluxes%salt_flux(i,j) / CS%ice_salt_concentration)
+      ! GMM: as stated above, the following is wrong. CIME deals with volume/mass and
+      ! heat from sea ice/snow via meltw and melth, respectively.
+      !!if (associated(fluxes%salt_flux) .and. (CS%ice_salt_concentration>0.0)) &
+      !    net_FW(i,j) = net_FW(i,j) + G%areaT(i,j) * &
+      !    (fluxes%salt_flux(i,j) / CS%ice_salt_concentration)
+
       net_FW2(i,j) = net_FW(i,j)/G%areaT(i,j)
     enddo; enddo