Skip to content

Commit

Permalink
Adding river runoff (from Jiande)
Browse files Browse the repository at this point in the history
Squashed commit of the following:

commit 8aa45c6
Author: jiandewang <jiande.wang@noaa.gov>
Date:   Mon Sep 23 22:45:46 2019 -0400

    fix typo in cap

commit ad85f5a
Merge: 4f71b04 c7d2a71
Author: jiandewang <jiande.wang@noaa.gov>
Date:   Mon Sep 23 13:48:07 2019 -0400

    solve conflict in mom cap

commit 4f71b04
Author: jiandewang <jiande.wang@noaa.gov>
Date:   Sat Aug 17 21:08:44 2019 -0400

    add ifndef CESMCOUPLED in cap for EMC runoff

commit 258a19c
Author: jiandewang <jiande.wang@noaa.gov>
Date:   Sun Aug 4 19:30:08 2019 -0400

    add runoff in mom_cap.F90
  • Loading branch information
JessicaMeixner-NOAA committed Oct 25, 2019
1 parent 5b994f3 commit 80743e6
Showing 1 changed file with 23 additions and 1 deletion.
24 changes: 23 additions & 1 deletion config_src/nuopc_driver/mom_cap.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -976,6 +977,11 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
call ocean_model_init(ocean_public, ocean_state, Time, Time)
endif

#ifndef CESMCOUPLED
! for runoff in EMC
call data_override_init(Ocean_domain_in = Ocean_public%domain)
#endif

call ocean_model_init_sfc(ocean_state, ocean_public)

call mpp_get_compute_domain(ocean_public%domain, isc, iec, jsc, jec)
Expand Down Expand Up @@ -1922,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
!---------------
Expand Down Expand Up @@ -2525,4 +2533,18 @@ subroutine shr_file_getLogUnit(nunit)
end subroutine shr_file_getLogUnit
#endif

end module MOM_cap_mod
subroutine ice_ocn_bnd_from_data(x, Time, Time_step_coupled)
! get forcing data from data_overide
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)

end subroutine ice_ocn_bnd_from_data

end module mom_cap_mod

0 comments on commit 80743e6

Please sign in to comment.