From a4031da29b7d62624a1a2d768f8f729102cb4847 Mon Sep 17 00:00:00 2001 From: Nicholas Hannah Date: Thu, 8 Dec 2016 16:09:06 +1100 Subject: [PATCH] Fix variable intent compilation error in dev/master. #334 --- src/parameterizations/lateral/MOM_hor_visc.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/parameterizations/lateral/MOM_hor_visc.F90 b/src/parameterizations/lateral/MOM_hor_visc.F90 index 1a6e11d8fb..5edf85af79 100644 --- a/src/parameterizations/lateral/MOM_hor_visc.F90 +++ b/src/parameterizations/lateral/MOM_hor_visc.F90 @@ -703,7 +703,7 @@ end subroutine horizontal_viscosity subroutine hor_visc_init(Time, G, param_file, diag, CS) type(time_type), intent(in) :: Time - type(ocean_grid_type), intent(in) :: G + type(ocean_grid_type), intent(inout) :: G type(param_file_type), intent(in) :: param_file type(diag_ctrl), target, intent(inout) :: diag type(hor_visc_CS), pointer :: CS