From 77710103cc833a4813aad8f461be2cd6b20725f0 Mon Sep 17 00:00:00 2001 From: Robert Hallberg Date: Fri, 7 Dec 2018 07:30:25 -0500 Subject: [PATCH] +Made snow2ice optional for finish_ice_transport Made snow2ice argument to finish_ice_transport optional. All answers are bitwise identical. --- src/SIS_transport.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/SIS_transport.F90 b/src/SIS_transport.F90 index e869e6ba..5a9c0d51 100644 --- a/src/SIS_transport.F90 +++ b/src/SIS_transport.F90 @@ -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