Fix intent(inout) in ice_ocean_boundary

NOAA-GFDL · Jul 26, 2017 · d77936e · d77936e
1 parent b403edd
commit d77936e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/config_src/mct_driver/coupler_indices.F90 b/config_src/mct_driver/coupler_indices.F90
@@ -289,7 +289,7 @@ end subroutine ocn_export
 
 
   subroutine fill_ice_ocean_bnd(ice_ocean_boundary, grid, x2o_o, ind)
-    type(ice_ocean_boundary_type), intent(in)   :: ice_ocean_boundary !< A type for the ice ocean boundary
+    type(ice_ocean_boundary_type), intent(inout)   :: ice_ocean_boundary !< A type for the ice ocean boundary
     type(ocean_grid_type), intent(in)           :: grid
     !type(mct_aVect), intent(in)                 :: x2o_o
     real(kind=8), intent(in)                 :: x2o_o(:,:)