diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90
index 376b7882101457843a0b0f4541048b0e5b4cf453..8c33ef36591991cdf1eab8285254036871424c90 100644
--- a/src/LIB/SURCOUCHE/src/mode_field.f90
+++ b/src/LIB/SURCOUCHE/src/mode_field.f90
@@ -160,7 +160,7 @@ TFIELDLIST(IDX)%CDIR       = ''
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
-TFIELDLIST(IDX)%NDIMS      = 1
+TFIELDLIST(IDX)%NDIMS      = 0
 IDX = IDX+1
 !
 IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -172,7 +172,7 @@ TFIELDLIST(IDX)%CDIR       = ''
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
-TFIELDLIST(IDX)%NDIMS      = 1
+TFIELDLIST(IDX)%NDIMS      = 0
 IDX = IDX+1
 !
 IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -184,7 +184,7 @@ TFIELDLIST(IDX)%CDIR       = ''
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
-TFIELDLIST(IDX)%NDIMS      = 1
+TFIELDLIST(IDX)%NDIMS      = 0
 IDX = IDX+1
 !
 IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -196,7 +196,7 @@ TFIELDLIST(IDX)%CDIR       = ''
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
-TFIELDLIST(IDX)%NDIMS      = 1
+TFIELDLIST(IDX)%NDIMS      = 0
 IDX = IDX+1
 !
 IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -208,7 +208,7 @@ TFIELDLIST(IDX)%CDIR       = ''
 TFIELDLIST(IDX)%CCOMMENT   = ''
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
-TFIELDLIST(IDX)%NDIMS      = 1
+TFIELDLIST(IDX)%NDIMS      = 0
 IDX = IDX+1
 !
 IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
@@ -292,7 +292,7 @@ TFIELDLIST(IDX)%CDIR       = '--'
 TFIELDLIST(IDX)%CCOMMENT   = 'Storage type for the information written in the FM files'
 TFIELDLIST(IDX)%NGRID      = 0
 TFIELDLIST(IDX)%NTYPE      = TYPECHAR
-TFIELDLIST(IDX)%NDIMS      = 1
+TFIELDLIST(IDX)%NDIMS      = 0
 IDX = IDX+1
 !
 IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 59edda8b1709eceb639b3ea68cd1598f5e19f0b7..274877ae1f54c204349479dde2a41e9fac158a69 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -1298,7 +1298,6 @@ XT_RELAX = XT_RELAX + ZTIME2 - ZTIME1 &
 !
 ZTIME1 = ZTIME2
 !
-!!Was called if MNH_NCWRIT: CALL WRITE_PHYS_PARAM(TZBAKFILE%CNAME)
 CALL PHYS_PARAM_n(KTCOUNT,TZBAKFILE, GCLOSE_OUT,                &
                   XT_RAD,XT_SHADOWS,XT_DCONV,XT_GROUND,XT_MAFL, &
                   XT_DRAG,XT_TURB,XT_TRACER,                    &
diff --git a/src/MNH/write_surf_mnh.f90 b/src/MNH/write_surf_mnh.f90
index 3eb1def7d775f84e3ecb283a21b25e36b9fceb51..f61451634c985bef827350b04aaa9fa120687123 100644
--- a/src/MNH/write_surf_mnh.f90
+++ b/src/MNH/write_surf_mnh.f90
@@ -370,7 +370,7 @@ ELSE IF (HDIR=='H') THEN
   TZFIELD%CCOMMENT   = TRIM(HCOMMENT)
   TZFIELD%NGRID      = 4
   TZFIELD%NTYPE      = TYPEREAL
-  TZFIELD%NDIMS      = 1
+  TZFIELD%NDIMS      = 2
   CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,COUT,KRESP,ZWORK(1+NHALO:IIU-NHALO,1+NHALO:IJU-NHALO))
 ELSE IF (HDIR=='A') THEN
   TZFIELD%CMNHNAME   = TRIM(HREC)
@@ -381,7 +381,7 @@ ELSE IF (HDIR=='A') THEN
   TZFIELD%CCOMMENT   = TRIM(HCOMMENT)
   TZFIELD%NGRID      = 4
   TZFIELD%NTYPE      = TYPEREAL
-  TZFIELD%NDIMS      = 1
+  TZFIELD%NDIMS      = 2
   CALL IO_WRITE_FIELD(TFILE_SURFEX,TZFIELD,COUT,KRESP,ZWORK(:,:))
 ELSE
   TZFIELD%CMNHNAME   = TRIM(HREC)