From 379c6b0d0259ebd5f95034e0e6959b7778e57a48 Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Tue, 20 Jun 2017 21:24:01 -0400 Subject: [PATCH] Changed intent for G in tidal_forcing_init() - The recent introduction of pass_var() calls on some fields in tidal_forcing_init() should have caused compile-time errors because pass_var() requires the G%Domain argument to be intent(inout). - Very worryingly, none of the compilers on c3 complained. Nor did gnu complain on the "trusty" image but I happened to still be using the older "precise" image for testing my scripts and the compiler there caught the mistake. --- src/parameterizations/lateral/MOM_tidal_forcing.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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,