Changeset 3043 for LMDZ6/trunk/libf/phylmd/infotrac_phy.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/infotrac_phy.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/infotrac_phy.F90

@@ -43 +43 @@
   INTEGER, ALLOCATABLE, DIMENSION(:,:), SAVE    :: iqfils
   INTEGER, ALLOCATABLE, DIMENSION(:), SAVE    :: iqpere
-!$OMP THREADPRIVATE(nqfils,nqdesc,nqdesc_tot,iqfils,iqpers)
+!$OMP THREADPRIVATE(nqfils,nqdesc,nqdesc_tot,iqfils,iqpere)
 
 ! conv_flg(it)=0 : convection desactivated for tracer number it