Changeset 3043 for LMDZ6/trunk/libf/phylmd/rrtm/susw15.F90

Timestamp:

Oct 25, 2017, 2:01:57 PM (7 years ago)

Author:

Ehouarn Millour

Message:

Some fixes to enable compiling with the pgf compiler and updated arch files for pgf on Ciclad.
EM

File:

• LMDZ6/trunk/libf/phylmd/rrtm/susw15.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/rrtm/susw15.F90

@@ -58 +58 @@
 
 IMPLICIT NONE
-REAL(KIND=JPRB)   :: ZPDH2O=0.8_JPRB
-REAL(KIND=JPRB)   :: ZPDUMG=0.75_JPRB
-REAL(KIND=JPRB)   :: ZPRH2O=30000._JPRB
-REAL(KIND=JPRB)   :: ZPRUMG=30000._JPRB
+REAL(KIND=JPRB),SAVE   :: ZPDH2O=0.8_JPRB
+REAL(KIND=JPRB),SAVE   :: ZPDUMG=0.75_JPRB
+REAL(KIND=JPRB),SAVE   :: ZPRH2O=30000._JPRB
+REAL(KIND=JPRB),SAVE   :: ZPRUMG=30000._JPRB
 
 !$OMP THREADPRIVATE(zpdh2o,zpdumg,zprh2o,zprumg)