From ea021fe8295e0c910ecfea7c9be2b7c141973059 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Wed, 10 Apr 2024 14:43:40 +0200 Subject: [PATCH] Philippe 10/04/2024: fix: correct number of unphysical values on boundaries --- src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 index 57558dab2..8bdbea5ae 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 @@ -1632,20 +1632,20 @@ else ijm_bdmax = max( 0, ijm_max - (njmax_ll + 2*jphext) + 1 ) iiu_bdmin = max( 0, jphext - iiu_min + 1 ) - iiu_bdmax = max( 0, iim_max - (nimax_ll + 2*jphext) ) + iiu_bdmax = max( 0, iiu_max - (nimax_ll + 2*jphext) ) iju_bdmin = max( 0, jphext - iju_min + 1 ) iju_bdmax = max( 0, iju_max - (njmax_ll + 2*jphext) + 1 ) iiv_bdmin = max( 0, jphext - iiv_min + 1 ) iiv_bdmax = max( 0, iiv_max - (nimax_ll + 2*jphext) + 1 ) ijv_bdmin = max( 0, jphext - ijv_min + 1 ) - ijv_bdmax = max( 0, iiv_max - (nimax_ll + 2*jphext) ) + ijv_bdmax = max( 0, ijv_max - (njmax_ll + 2*jphext) ) ikm_bdmin = max( 0, JPVEXT - ikm_min ) ikm_bdmax = max( 0, ikm_max - (nkmax + 2*JPVEXT) + 1 ) ikw_bdmin = max( 0, JPVEXT - ikw_min ) - ikw_bdmax = max( 0, ikm_max - (nkmax + 2*JPVEXT) ) + ikw_bdmax = max( 0, ikw_max - (nkmax + 2*JPVEXT) ) ! Adapt the dimensions to the selected ones if ( tzfile%lmaster ) then -- GitLab