Intent inout in shortwave_dEdd_set_snow (#227)

CICE-Consortium · Oct 4, 2018 · 0b4ee4e · 0b4ee4e
1 parent 2fc1efd
commit 0b4ee4e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/columnphysics/icepack_shortwave.F90 b/columnphysics/icepack_shortwave.F90
@@ -3482,8 +3482,7 @@ subroutine shortwave_dEdd_set_snow(nslyr,    R_snw,    &
          Tsfc   , & ! surface temperature 
          hs0        ! snow depth for transition to bare sea ice (m)
 
-!    real (kind=dbl_kind), intent(inout) :: &
-     real (kind=dbl_kind), intent(out) :: &
+     real (kind=dbl_kind), intent(inout) :: &
          fs     , & ! horizontal coverage of snow
          hs         ! snow depth