From c53612ffe468f9e8f9d17334c35779101c2e9521 Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Fri, 18 Jul 2014 15:58:22 -0400 Subject: [PATCH] Changed intent of diag in coupled_driver/MOM_surface_forcing.F90 - As for solo_driver, intent(inout) needed for diag type in surface_forcing_init(). --- config_src/coupled_driver/MOM_surface_forcing.F90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/config_src/coupled_driver/MOM_surface_forcing.F90 b/config_src/coupled_driver/MOM_surface_forcing.F90 index c58920ba60..8cd0b7b655 100644 --- a/config_src/coupled_driver/MOM_surface_forcing.F90 +++ b/config_src/coupled_driver/MOM_surface_forcing.F90 @@ -678,12 +678,12 @@ subroutine forcing_save_restart(CS, G, Time, directory, time_stamped, & end subroutine forcing_save_restart subroutine surface_forcing_init(Time, G, param_file, diag, CS, restore_salt) - type(time_type), intent(in) :: Time - type(ocean_grid_type), intent(in) :: G - type(param_file_type), intent(in) :: param_file - type(diag_ctrl), target, intent(in) :: diag - type(surface_forcing_CS), pointer :: CS - logical, optional, intent(in) :: restore_salt + type(time_type), intent(in) :: Time + type(ocean_grid_type), intent(in) :: G + type(param_file_type), intent(in) :: param_file + type(diag_ctrl), target, intent(inout) :: diag + type(surface_forcing_CS), pointer :: CS + logical, optional, intent(in) :: restore_salt ! Arguments: Time - The current model time. ! (in) G - The ocean's grid structure. ! (in) param_file - A structure indicating the open file to parse for