Merge pull request #15 from gustavo-marques/small_fixes

Small fixes
NOAA-GFDL · Jul 26, 2017 · f42c970 · f42c970
2 parents b403edd + 31787c2
commit f42c970
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
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(:,:)

diff --git a/config_src/mct_driver/ocn_comp_mct.F90 b/config_src/mct_driver/ocn_comp_mct.F90
@@ -32,7 +32,7 @@ module ocn_comp_mct
 use MOM_grid,           only: ocean_grid_type, get_global_grid_size
 use MOM_variables,      only: surface
 use MOM_error_handler,  only: MOM_error, FATAL, is_root_pe
-use MOM_time_manager,   only: time_type, set_date, set_calendar_type, NOLEAP
+use MOM_time_manager,   only: time_type, set_date, set_time, set_calendar_type, NOLEAP
 use coupler_indices,    only: coupler_indices_init, cpl_indices
 use coupler_indices,    only: ocn_export, fill_ice_ocean_bnd