add runoff in mom_cap.F90

config_src/nuopc_driver/mom_cap.F90

@@ -313,6 +313,7 @@
 !> This module contains a set of subroutines that are required by NUOPC.
 module mom_cap_mod
 use constants_mod,            only: constants_init
+use data_override_mod,        only: data_override_init, data_override
 use diag_manager_mod,         only: diag_manager_init, diag_manager_end
 use field_manager_mod,        only: field_manager_init, field_manager_end
 use fms_mod,                  only: fms_init, fms_end, open_namelist_file, check_nml_error
@@ -976,6 +977,8 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
      call ocean_model_init(ocean_public, ocean_state, Time, Time)
   endif
 
+  call data_override_init(Ocean_domain_in = Ocean_public%domain) ! for runoff
+
   call ocean_model_init_sfc(ocean_state, ocean_public)
 
   call mpp_get_compute_domain(ocean_public%domain, isc, iec, jsc, jec)
@@ -1925,6 +1928,8 @@ subroutine ModelAdvance(gcomp, rc)
        file=__FILE__)) &
        return  ! bail out
 
+  call ice_ocn_bnd_from_data(Ice_ocean_boundary, Time, Time_step_coupled) ! for runoff            
+
   !---------------
   ! Update MOM6
   !---------------
@@ -2530,4 +2535,19 @@ subroutine shr_file_getLogUnit(nunit)
 end subroutine shr_file_getLogUnit
 #endif
 
+! get forcing data from data_overide
+  subroutine ice_ocn_bnd_from_data(x, Time, Time_step_coupled)
+
+      type (ice_ocean_boundary_type) :: x
+      type(Time_type), intent(in)    :: Time, Time_step_coupled
+
+      type(Time_type)                :: Time_next
+      character(len=*),parameter  :: subname='(mom_cap:ice_ocn_bnd_from_data)'
+
+      Time_next = Time + Time_step_coupled
+!      call data_override('OCN', 'runoff',  x%runoff  , Time_next)
+      call data_override('OCN', 'runoff',   x%rofl_flux   , Time_next)  !JW
+
+  end subroutine ice_ocn_bnd_from_data
+
 end module mom_cap_mod