Skip to content

Commit

Permalink
+Made snow2ice optional for finish_ice_transport
Browse files Browse the repository at this point in the history
  Made snow2ice argument to finish_ice_transport optional.  All answers are
bitwise identical.
  • Loading branch information
Hallberg-NOAA committed Dec 7, 2018
1 parent fbe33c5 commit 7771010
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/SIS_transport.F90
Original file line number Diff line number Diff line change
Expand Up @@ -288,7 +288,8 @@ subroutine finish_ice_transport(CAS, IST, TrReg, G, IG, CS, snow2ocn, rdg_rate)
type(ice_grid_type), intent(inout) :: IG !< The sea-ice specific grid type
type(SIS_tracer_registry_type), pointer :: TrReg !< The registry of SIS ice and snow tracers.
type(SIS_transport_CS), pointer :: CS !< A pointer to the control structure for this module
real, dimension(SZI_(G),SZJ_(G)), intent(inout) :: snow2ocn !< snow volume [m] dumped into ocean during ridging
real, dimension(SZI_(G),SZJ_(G)), &
optional, intent(inout) :: snow2ocn !< Snow dumped into ocean during ridging in kg m-2
real, dimension(SZI_(G),SZJ_(G)), optional, intent(in) :: rdg_rate !< The ice ridging rate in s-1.

! Local variables
Expand Down

0 comments on commit 7771010

Please sign in to comment.