diff --git a/src/parameterizations/lateral/MOM_tidal_forcing.F90 b/src/parameterizations/lateral/MOM_tidal_forcing.F90
index 7f5c0777c1..edff498de3 100644
--- 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,