Merge branch 'dev/gfdl' of https://github.com/NOAA-GFDL/MOM6 into dev…

…/gfdl
NOAA-GFDL · Jun 22, 2017 · 0d5399f · 0d5399f
2 parents 26ed48b + e09f0a9
commit 0d5399f
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/parameterizations/lateral/MOM_tidal_forcing.F90 b/src/parameterizations/lateral/MOM_tidal_forcing.F90
@@ -105,10 +105,10 @@ module MOM_tidal_forcing
 contains
 
 subroutine tidal_forcing_init(Time, G, param_file, CS)
-  type(time_type),       intent(in) :: Time
-  type(ocean_grid_type), intent(in) :: G    !< The ocean's grid structure
-  type(param_file_type), intent(in) :: param_file !< A structure to parse for run-time parameters
-  type(tidal_forcing_CS), pointer   :: CS
+  type(time_type),       intent(in)    :: Time
+  type(ocean_grid_type), intent(inout) :: G    !< The ocean's grid structure
+  type(param_file_type), intent(in)    :: param_file !< A structure to parse for run-time parameters
+  type(tidal_forcing_CS), pointer      :: CS
 
 ! This subroutine allocates space for the static variables used
 ! by this module.  The metrics may be effectively 0, 1, or 2-D arrays,