diff --git a/src/MNH/ini_rain_ice.f90 b/src/MNH/ini_rain_ice.f90
index 6987cf57c4de21c42926eeecb0e500940b659997..5244a0d709db32e7d861c07d60b6f3472e4d2dd7 100644
--- a/src/MNH/ini_rain_ice.f90
+++ b/src/MNH/ini_rain_ice.f90
@@ -586,7 +586,7 @@ IF (GFLAG) THEN
   WRITE(UNIT=KLUOUT,FMT='(" A Coef. for cirrus law XACRIAUTI=",E13.6)') XACRIAUTI
   WRITE(UNIT=KLUOUT,FMT='(" B Coef. for cirrus law XBCRIAUTI=",E13.6)') XBCRIAUTI
   WRITE(UNIT=KLUOUT,FMT='(" Temp degC at which cirrus law starts to be &
-                              used=",E13.6)') XT0CRIAUTI
+                            & used=",E13.6)') XT0CRIAUTI
 END IF
 !
 !
diff --git a/src/MNH/mnhopen_aux_io_surf.f90 b/src/MNH/mnhopen_aux_io_surf.f90
index 0feac5888ef9fa8ae713e732e17cc927d90b5cd6..8186641bc9cc2cb7bffb0039e380d2d7a06f8eaf 100644
--- a/src/MNH/mnhopen_aux_io_surf.f90
+++ b/src/MNH/mnhopen_aux_io_surf.f90
@@ -138,7 +138,7 @@ IJPHEXT= 1
 CALL FMREAD(HFILE,'JPHEXT',COUT,'--',IJPHEXT,IGRID,ILENCH,YCOMMENT,IRESP)
 IF ( IJPHEXT .NE. JPHEXT ) THEN
    WRITE(NLUOUT,FMT=*) ' MNHOPEN_AUX_IO : JPHEXT in PRE_PGD1.nam/NAM_CONF_PGD ( or default value )&
-        JPHEXT=',JPHEXT
+      & JPHEXT=',JPHEXT
    WRITE(NLUOUT,FMT=*) ' different from PGD files=',HFILE ,' value JPHEXT=',IJPHEXT
    WRITE(NLUOUT,FMT=*) '-> JOB ABORTED'
    CALL CLOSE_ll(COUT,IOSTAT=IRESP)
diff --git a/src/MNH/mode_extrapol.f90 b/src/MNH/mode_extrapol.f90
index 6b6949264f90e4a133bf89e2878a0ec4ebfcaf2c..f8a5bd78508d36e38b0f8b88322c2efa525bab74 100644
--- a/src/MNH/mode_extrapol.f90
+++ b/src/MNH/mode_extrapol.f90
@@ -222,7 +222,7 @@ CONTAINS
         ENDIF
       ELSEIF ( IDIMX_C == IIE - IIB + 2 + 2*JPHEXT ) THEN !the child domain has the size of the father domain minus one
         WRITE(*,*) "ERROR in EXTRAPOL_ON_PSEUDO_HALO3D, case not supported : &
-                the child grid has to be one point larger or one point smaller in X dim"
+              & the child grid has to be one point larger or one point smaller in X dim"
         CALL ABORT
 !        IF ( IIB>1 .AND. LWEST_ll() .AND. CLBCX(1)/='CYCL' )  THEN !du cote ouest, on a un point dans le 'pseudo halo' a extrapoler
 !          PTAB(1,:,:) = 2. * PTAB(2,:,:) - PTAB(3,:,:)
@@ -250,7 +250,7 @@ CONTAINS
         ENDIF
       ELSEIF ( IDIMY_C == IJE - IJB + 2 + 2*JPHEXT ) THEN !the child domain has the size of the father domain minus one
         WRITE(*,*) "ERROR in EXTRAPOL_ON_PSEUDO_HALO3D, case not supported :  &
-        the child grid has to be one point larger or one point smaller in Y dim"
+      & the child grid has to be one point larger or one point smaller in Y dim"
         CALL ABORT
 !        IF ( IJB>1 .AND. LNORTH_ll() .AND. CLBCY(1)/='CYCL' )  THEN !du cote ouest, on a un point dans le 'pseudo halo' a extrapoler
 !          PTAB(:,1,:) = 2. * PTAB(:,2,:) - PTAB(:,3,:)
@@ -356,7 +356,7 @@ CONTAINS
         ENDIF
       ELSEIF ( IDIMX_C == IIE - IIB + 2 + 2*JPHEXT ) THEN !the child domain has the size of the father domain minus one
         WRITE(*,*) "ERROR in EXTRAPOL_ON_PSEUDO_HALO2D, case not supported :  &
-                the child grid has to be one point larger or one point smaller in X dim"
+              & the child grid has to be one point larger or one point smaller in X dim"
         CALL ABORT
 !        IF ( IIB>1 .AND. LWEST_ll() .AND. CLBCX(1)/='CYCL' )  THEN !du cote ouest, on a un point dans le 'pseudo halo' a extrapoler
 !          PTAB(1,:) = 2. * PTAB(2,:) - PTAB(3,:)
@@ -388,7 +388,7 @@ CONTAINS
         ENDIF
       ELSEIF ( IDIMY_C == IJE - IJB + 2 + 2*JPHEXT ) THEN !the child domain has the size of the father domain minus one
         WRITE(*,*) "ERROR in EXTRAPOL_ON_PSEUDO_HALO2D, case not supported : &
-                the child grid has to be one point larger or one point smaller in Y dim"
+              & the child grid has to be one point larger or one point smaller in Y dim"
         CALL ABORT
 !        IF ( IJB>1 .AND. LNORTH_ll() .AND. CLBCY(1)/='CYCL' )  THEN !du cote ouest, on a un point dans le 'pseudo halo' a extrapoler
 !          PTAB(:,1) = 2. * PTAB(:,2) - PTAB(:,3)
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index 4948cbac8c6b592a5ab786d734cf2ae1fff284c7..58d2b89d076c1fe2d5f4f32100540707ad8c4bcb 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -723,7 +723,7 @@ IF( LEN_TRIM(CPGD_FILE) /= 0 ) THEN
   END IF
   IF ( IJPHEXT .NE. JPHEXT ) THEN
      WRITE(NLUOUT,FMT=*) ' PREP_IDEAL_CASE : JPHEXT in PRE_IDEA1.nam/NAM_CONF_PRE ( or default value )&
-          JPHEXT=',JPHEXT
+        & JPHEXT=',JPHEXT
      WRITE(NLUOUT,FMT=*) ' different from PGD files=', CINIFILEPGD,' value JPHEXT=',IJPHEXT
      WRITE(NLUOUT,FMT=*) '-> JOB ABORTED'
      CALL CLOSE_ll(CLUOUT,IOSTAT=IRESP)
diff --git a/src/MNH/read_hgridn.f90 b/src/MNH/read_hgridn.f90
index 592ea7bc4bdcfa47ecaf4bbf4eaf3cf234a374ed..91e0c67119c5ac46b765e62d9f39ff67460c7ce8 100644
--- a/src/MNH/read_hgridn.f90
+++ b/src/MNH/read_hgridn.f90
@@ -216,10 +216,10 @@ IF (CPROGRAM/='IDEAL ') THEN
   IF ( IJPHEXT .NE. JPHEXT ) THEN
      IF (CPROGRAM == 'REAL' ) THEN
         WRITE(ILUOUT,FMT=*) ' READ_HGRID_N : JPHEXT in PRE_REAL1.nam/NAM_REAL_CONF ( or default value )&
-             JPHEXT=',JPHEXT
+           & JPHEXT=',JPHEXT
      ELSE
         WRITE(ILUOUT,FMT=*) ' READ_HGRID_N : JPHEXT in PRE_NEST_PGD1.nam/NAM_CONF_NEST ( or default value )&
-             JPHEXT=',JPHEXT
+           & JPHEXT=',JPHEXT
      END IF
 
      WRITE(ILUOUT,FMT=*) ' different from PGD files=',HFMFILE ,' value JPHEXT=',IJPHEXT