From 225636c1f8ee7f694c05cdd88d00fcc26d8f7cfd Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Wed, 3 Dec 2014 14:03:18 +0000
Subject: [PATCH] Juan 3/12/2014: Bug : detected with cray compiler , missing
"&" in continuation string
---
src/MNH/prep_ideal_case.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index 0721e35ac..d6de2c319 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -309,6 +309,8 @@
!! Correction for ZS in PGD file 04/2014 (G. TANGUY)
!! Bug : remove NC WRITE_HGRID 05/2014 (S. Bielli via J.Escobar )
!! BUG if ZFRC and ZFRC_ADV or ZFRC_REL are used together 11/2014 (G. Delautier)
+!! Bug : detected with cray compiler ,
+!! missing '&' in continuation string 3/12/2014 J.Escobar
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
@@ -694,7 +696,7 @@ IF( LEN_TRIM(CPGD_FILE) /= 0 ) THEN
CALL FMREAD(CPGD_FILE,'JMAX',CLUOUT,'--',NJMAX,IGRID,ILENCH,YCOMMENT,IRESP)
IF ( CPGD_FILE /= CINIFILEPGD) THEN
WRITE(NLUOUT,FMT=*) ' WARNING : in PRE_IDEA1.nam, in NAM_LUNITn you&
- have CINIFILEPGD= ',CINIFILEPGD
+ & have CINIFILEPGD= ',CINIFILEPGD
WRITE(NLUOUT,FMT=*) ' whereas in NAM_REAL_PGD you have CPGD_FILE = '&
,CPGD_FILE
WRITE(NLUOUT,FMT=*) ' '
--
GitLab