From a4cf10ec3ee9749b3cb822962a84df9094f900e9 Mon Sep 17 00:00:00 2001 From: Philippe Blain Date: Wed, 10 Aug 2022 16:22:12 -0400 Subject: [PATCH] ice_grid: initialize 'l_readCenter' for all grid types --- cicecore/cicedynB/infrastructure/ice_grid.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/cicecore/cicedynB/infrastructure/ice_grid.F90 b/cicecore/cicedynB/infrastructure/ice_grid.F90 index 84f9f6547..b871128b1 100644 --- a/cicecore/cicedynB/infrastructure/ice_grid.F90 +++ b/cicecore/cicedynB/infrastructure/ice_grid.F90 @@ -475,6 +475,8 @@ subroutine init_grid2 ! lat, lon, cell widths, angle, land mask !----------------------------------------------------------------- + l_readCenter = .false. + call icepack_query_parameters(pi_out=pi, pi2_out=pi2, puny_out=puny) call icepack_warnings_flush(nu_diag) if (icepack_warnings_aborted()) call abort_ice(error_message=subname, &