Philippe 01/12/2015: added missing & at the beginning of output message lines
authorPhilippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Tue, 1 Dec 2015 09:26:26 +0000 (09:26 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/ini_rain_ice.f90
src/MNH/mnhopen_aux_io_surf.f90
src/MNH/mode_extrapol.f90
src/MNH/prep_ideal_case.f90
src/MNH/read_hgridn.f90

index 6987cf5..5244a0d 100644 (file)
@@ -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
 !
 !
index 0feac58..8186641 100644 (file)
@@ -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)
index 6b69492..f8a5bd7 100644 (file)
@@ -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)
index 4948cba..58d2b89 100644 (file)
@@ -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)
index 592ea7b..91e0c67 100644 (file)
@@ -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