From 497e163c3e50ea49a14ddb04cb5c941d5bf27274 Mon Sep 17 00:00:00 2001 From: TillRasmussen Date: Fri, 26 Nov 2021 00:06:06 +0000 Subject: [PATCH 1/2] All CD grid on quicksuite runs. Avoid spurios values of zetax2T and etax2T. The real problem is most likely difference between U and T mask. --- cicecore/cicedynB/dynamics/ice_dyn_evp.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 index 0c9e1126e..4015f3991 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 @@ -205,6 +205,8 @@ subroutine evp (dt) allocate(zetax2T(nx_block,ny_block,max_blocks)) allocate(etax2T(nx_block,ny_block,max_blocks)) + zetax2T(:,:,:) = c0 + etax2T(:,:,:) = c0 endif From 8e1c49d3c6637aa445904da8b41eed4f163a2255 Mon Sep 17 00:00:00 2001 From: TillRasmussen Date: Fri, 26 Nov 2021 07:18:54 +0000 Subject: [PATCH 2/2] added space --- cicecore/cicedynB/dynamics/ice_dyn_evp.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 index 4015f3991..b63c503e6 100644 --- a/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 +++ b/cicecore/cicedynB/dynamics/ice_dyn_evp.F90 @@ -206,7 +206,7 @@ subroutine evp (dt) allocate(zetax2T(nx_block,ny_block,max_blocks)) allocate(etax2T(nx_block,ny_block,max_blocks)) zetax2T(:,:,:) = c0 - etax2T(:,:,:) = c0 + etax2T (:,:,:) = c0 endif