diff --git a/src/LIB/SURCOUCHE/src/mode_field.f90 b/src/LIB/SURCOUCHE/src/mode_field.f90
index eeeecd985d22764374a7abae49362de240b21816..d9f3b0a631bc4bd0f6f427e3178daec6495a0617 100644
--- a/src/LIB/SURCOUCHE/src/mode_field.f90
+++ b/src/LIB/SURCOUCHE/src/mode_field.f90
@@ -439,6 +439,30 @@ TFIELDLIST(IDX)%NDIMS      = 0
 IDX = IDX+1
 !
 IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
+TFIELDLIST(IDX)%CMNHNAME   = 'LONOR'
+TFIELDLIST(IDX)%CSTDNAME   = ''
+TFIELDLIST(IDX)%CLONGNAME  = 'LONOR'
+TFIELDLIST(IDX)%CUNITS     = 'degree'
+TFIELDLIST(IDX)%CDIR       = '--'
+TFIELDLIST(IDX)%CCOMMENT   = 'Longitude of 1st mass point'
+TFIELDLIST(IDX)%NGRID      = 0
+TFIELDLIST(IDX)%NTYPE      = TYPEREAL
+TFIELDLIST(IDX)%NDIMS      = 0
+IDX = IDX+1
+!
+IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
+TFIELDLIST(IDX)%CMNHNAME   = 'LATOR'
+TFIELDLIST(IDX)%CSTDNAME   = ''
+TFIELDLIST(IDX)%CLONGNAME  = 'LATOR'
+TFIELDLIST(IDX)%CUNITS     = 'degree'
+TFIELDLIST(IDX)%CDIR       = '--'
+TFIELDLIST(IDX)%CCOMMENT   = 'Latitude of 1st mass point'
+TFIELDLIST(IDX)%NGRID      = 0
+TFIELDLIST(IDX)%NTYPE      = TYPEREAL
+TFIELDLIST(IDX)%NDIMS      = 0
+IDX = IDX+1
+!
+IF(IDX>MAXFIELDS) CALL ERR_INI_FIELD_LIST()
 TFIELDLIST(IDX)%CMNHNAME   = 'THINSHELL'
 TFIELDLIST(IDX)%CSTDNAME   = ''
 TFIELDLIST(IDX)%CLONGNAME  = 'THINSHELL'
diff --git a/src/MNH/write_lfifm1_for_diag.f90 b/src/MNH/write_lfifm1_for_diag.f90
index db5bf7f61d2173fb254a9ce9bb7d27d576c89835..99fcf98875dffea8759db62579cb8afa73f60be5 100644
--- a/src/MNH/write_lfifm1_for_diag.f90
+++ b/src/MNH/write_lfifm1_for_diag.f90
@@ -410,22 +410,8 @@ IF (.NOT.LCARTESIAN) THEN
   CALL SM_LATLON(XLATORI,XLONORI,ZXHATM,ZYHATM,ZLATOR,ZLONOR)
   DEALLOCATE(ZXHAT_ll,ZYHAT_ll)
 !
-  !LONOR and LATOR not in TFIELDLIST because local variables
-  TZFIELD%CMNHNAME   = 'LONOR'
-  TZFIELD%CSTDNAME   = ''
-  TZFIELD%CLONGNAME  = 'LONOR'
-  TZFIELD%CUNITS     = 'degree'
-  TZFIELD%CDIR       = '--'
-  TZFIELD%CCOMMENT   = 'Longitude of 1st mass point'
-  TZFIELD%NGRID      = 0
-  TZFIELD%NTYPE      = TYPEREAL
-  TZFIELD%NDIMS      = 0
-  CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLONOR)
-!
-  TZFIELD%CMNHNAME   = 'LATOR'
-  TZFIELD%CLONGNAME  = 'LATOR'
-  TZFIELD%CCOMMENT   = 'Latitude of 1st mass point'
-  CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLATOR)
+  CALL IO_WRITE_FIELD(TPFILE,'LONOR',ZLONOR)
+  CALL IO_WRITE_FIELD(TPFILE,'LATOR',ZLATOR)
 !
 END IF 
 !
diff --git a/src/MNH/write_lfifmn_fordiachron.f90 b/src/MNH/write_lfifmn_fordiachron.f90
index ec9b57add8ab8c9ca42c28fcf2b09025c1ec27ff..d3a75dab2aa76befe08a4d245f1a23fd53836653 100644
--- a/src/MNH/write_lfifmn_fordiachron.f90
+++ b/src/MNH/write_lfifmn_fordiachron.f90
@@ -167,22 +167,8 @@ IF (.NOT.LCARTESIAN) THEN
   CALL SM_LATLON(XLATORI,XLONORI,ZXHATM,ZYHATM,ZLATOR,ZLONOR)
   DEALLOCATE(ZXHAT_ll,ZYHAT_ll)
 !
-  !LONOR and LATOR not in TFIELDLIST because local variables
-  TZFIELD%CMNHNAME   = 'LONOR'
-  TZFIELD%CSTDNAME   = ''
-  TZFIELD%CLONGNAME  = 'LONOR'
-  TZFIELD%CUNITS     = 'degree'
-  TZFIELD%CDIR       = '--'
-  TZFIELD%CCOMMENT   = 'Longitude of 1st mass point'
-  TZFIELD%NGRID      = 0
-  TZFIELD%NTYPE      = TYPEREAL
-  TZFIELD%NDIMS      = 0
-  CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLONOR)
-!
-  TZFIELD%CMNHNAME   = 'LATOR'
-  TZFIELD%CLONGNAME  = 'LATOR'
-  TZFIELD%CCOMMENT   = 'Latitude of 1st mass point'
-  CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLATOR)
+  CALL IO_WRITE_FIELD(TPFILE,'LONOR',ZLONOR)
+  CALL IO_WRITE_FIELD(TPFILE,'LATOR',ZLATOR)
 !
 ! #ifdef MNH_NCWRIT
 !   IF (LNETCDF) THEN
diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90
index 715c0486b5f672ef558fbcd593dff5417cc4c0fd..e1c27889a2d4262fde26d69d57efa3d8d3483dbe 100644
--- a/src/MNH/write_lfin.f90
+++ b/src/MNH/write_lfin.f90
@@ -371,22 +371,8 @@ IF (.NOT.LCARTESIAN) THEN
   CALL SM_LATLON(XLATORI,XLONORI,ZXHATM,ZYHATM,ZLATOR,ZLONOR)
   DEALLOCATE(ZXHAT_ll,ZYHAT_ll)
 !
-  !LONOR and LATOR not in TFIELDLIST because local variables
-  TZFIELD%CMNHNAME   = 'LONOR'
-  TZFIELD%CSTDNAME   = ''
-  TZFIELD%CLONGNAME  = 'LONOR'
-  TZFIELD%CUNITS     = 'degree'
-  TZFIELD%CDIR       = '--'
-  TZFIELD%CCOMMENT   = 'Longitude of 1st mass point'
-  TZFIELD%NGRID      = 0
-  TZFIELD%NTYPE      = TYPEREAL
-  TZFIELD%NDIMS      = 0
-  CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLONOR)
-!
-  TZFIELD%CMNHNAME   = 'LATOR'
-  TZFIELD%CLONGNAME  = 'LATOR'
-  TZFIELD%CCOMMENT   = 'Latitude of 1st mass point'
-  CALL IO_WRITE_FIELD(TPFILE,TZFIELD,ZLATOR)
+  CALL IO_WRITE_FIELD(TPFILE,'LONOR',ZLONOR)
+  CALL IO_WRITE_FIELD(TPFILE,'LATOR',ZLATOR)
 END IF 
 !
 CALL IO_WRITE_FIELD(TPFILE,'THINSHELL',LTHINSHELL)