From a9d8afa050288b3dfda518f878c1dd74f42340d9 Mon Sep 17 00:00:00 2001
From: Philippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 1 Dec 2015 09:26:26 +0000
Subject: [PATCH] Philippe 01/12/2015: added missing & at the beginning of
output message lines
---
src/MNH/ini_rain_ice.f90 | 2 +-
src/MNH/mnhopen_aux_io_surf.f90 | 2 +-
src/MNH/mode_extrapol.f90 | 8 ++++----
src/MNH/prep_ideal_case.f90 | 2 +-
src/MNH/read_hgridn.f90 | 4 ++--
5 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/src/MNH/ini_rain_ice.f90 b/src/MNH/ini_rain_ice.f90
index 6987cf57c..5244a0d70 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 0feac5888..8186641bc 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 6b6949264..f8a5bd785 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 4948cbac8..58d2b89d0 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 592ea7bc4..91e0c6711 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
--
GitLab