Changeset 3043 for LMDZ6/trunk/libf/phylmd

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

Location:

LMDZ6/trunk/libf/phylmd

Files:

• cv3_enthalpmix.F90 (modified) (1 diff)
• cv3_estatmix.F90 (modified) (1 diff)
• infotrac_phy.F90 (modified) (1 diff)
• phytrac_mod.F90 (modified) (1 diff)
• regr_pr_comb_coefoz_m.F90 (modified) (1 diff)
• rrtm/susw15.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/cv3_enthalpmix.F90

@@ -50 +50 @@
   REAL                                      :: cpn
   REAL                                      :: x, y, p0, p0m1, zdelta, zcor
-  REAL                                      :: dpmin=1.
+  REAL, SAVE                                :: dpmin=1.
 !$OMP THREADPRIVATE(dpmin)
   REAL, DIMENSION(len)                      :: plim2p  ! = min(plim2(:),plim1(:)-dpmin)

LMDZ6/trunk/libf/phylmd/cv3_estatmix.F90

@@ -53 +53 @@
   REAL                                      :: cpn
   REAL                                      :: x, y, p0, zdelta, zcor
-  REAL                                      :: dpmin=1.
+  REAL, SAVE                                :: dpmin=1.
 !$OMP THREADPRIVATE(dpmin)
   REAL, DIMENSION(len)                      :: plim2p  ! = min(plim2(:),plim1(:)-dpmin)

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 

LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

@@ -49 +49 @@
 !$OMP THREADPRIVATE(d_tr_trsp,d_tr_sscav,d_tr_sat,d_tr_uscav,qPr,qDi)
 !$OMP THREADPRIVATE(d_tr_insc,d_tr_bcscav,d_tr_evapls,d_tr_ls,qPrls)
-!$OMP THREADPRIVATE(d_tr,d_tr_cl,d_tr_dry,flux_tr_dry,d_tr_dec,d_tr_cv)
+!$OMP THREADPRIVATE(d_tr_cl,d_tr_dry,flux_tr_dry,d_tr_dec,d_tr_cv)
 
 

LMDZ6/trunk/libf/phylmd/regr_pr_comb_coefoz_m.F90

@@ -128 +128 @@
     !$omp end master
 
-    call regr_pr_time_av(ncid, (/"a2       ", "a4       ", "a6       ", &
-         "P_net_Mob", "r_Mob    ", "temp_Mob ", "R_Het    "/), REAL(julien-1), &
+    call regr_pr_time_av(ncid, (/"a2           ", "a4           ", "a6           ", &
+         "P_net_Mob    ", "r_Mob        ", "temp_Mob     ", "R_Het        "/), REAL(julien-1), &
          press_in_edg, paprs, coefoz)
     a2 = coefoz(:, :, 1)

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)