diff --git a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90
index 57558dab2970c768f856be8a6b553b1a1055f2ff..8bdbea5aecf2e75e4f0ff1ffffd760541cbfc409 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