Gaelle 7/2/14 : add ENDIF

95e68487 · Gaelle Tanguy · WAUTELET Philippe · 77c02a5c · 95e68487
Commit 95e68487 authored 11 years ago by Gaelle Tanguy Committed by WAUTELET Philippe 8 years ago
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -695,6 +695,7 @@ IF( LEN_TRIM(CPGD_FILE) /= 0 ) THEN
    WRITE(NLUOUT,FMT=*) ' '
    WRITE(NLUOUT,FMT=*) ' CINIFILEPGD HAS BEEN SET TO  ',CPGD_FILE        
    CINIFILEPGD=CPGD_FILE
+  ENDIF
 END IF
 !
 NIMAX_ll=NIMAX   !! _ll variables are global variables