Pass melt/freeze potential to coupler; reset melt_potential

NOAA-GFDL · Aug 3, 2018 · c6b2534 · c6b2534
1 parent eb2c69f
commit c6b2534
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/config_src/mct_driver/ocn_cap_methods.F90 b/config_src/mct_driver/ocn_cap_methods.F90
@@ -182,7 +182,9 @@ subroutine ocn_export(ind, ocn_public, grid, o2x, dt_int, ncouple_per_day)
           o2x(ind%o2x_Fioo_q, n) = ocn_public%frazil(ig,jg) * grid%mask2dT(i,j) * I_time_int
         else
           ! Melt_potential: change from J/m^2 to W/m^2
-          o2x(ind%o2x_Fioo_q, n) = -ocn_public%melt_potential(ig,jg) * grid%mask2dT(i,j) !* I_time_int * ncouple_per_day
+          o2x(ind%o2x_Fioo_q, n) = -ocn_public%melt_potential(ig,jg) * grid%mask2dT(i,j) * I_time_int !* ncouple_per_day
+          ! reset melt_potential
+          ocn_public%melt_potential(ig,jg) = 0.0
         endif
         ! Make a copy of ssh in order to do a halo update. We use the usual MOM domain
         ! in order to update halos. i.e. does not use global indexing.