Skip to content

Commit

Permalink
Changed data_override variable for Ocean_Ice_Boundary%calving from
Browse files Browse the repository at this point in the history
"calving" to "IS_calving" (and a similar change for calving_hflx).
This differentiates this ice-shelf-calving override from the
snow-discharge-calving override, so that data for the two sources
of calving can be set separately.
  • Loading branch information
alex-huth committed Feb 26, 2024
1 parent a2034c0 commit 0437640
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions full/ice_ocean_flux_exchange.F90
Original file line number Diff line number Diff line change
Expand Up @@ -521,8 +521,9 @@ subroutine flux_ocean_to_ice_finish( Time, Ice, Ocean_Ice_Boundary )
call fms_data_override('ICE', 's', Ocean_Ice_Boundary%s, Time)
call fms_data_override('ICE', 'frazil', Ocean_Ice_Boundary%frazil, Time)
call fms_data_override('ICE', 'sea_level', Ocean_Ice_Boundary%sea_level, Time)
call fms_data_override('ICE', 'calving', Ocean_Ice_Boundary%calving, Time)
call fms_data_override('ICE', 'calving_hflx', Ocean_Ice_Boundary%calving_hflx, Time)
!Ice-shelf calving
call fms_data_override('ICE', 'IS_calving', Ocean_Ice_Boundary%calving, Time)
call fms_data_override('ICE', 'IS_calving_hflx', Ocean_Ice_Boundary%calving_hflx, Time)
call fms_coupler_type_data_override('ICE', Ocean_Ice_Boundary%fields, Time)

! Perform diagnostic output for the ocean_ice_boundary fields
Expand Down

0 comments on commit 0437640

Please sign in to comment.