Changeset 3340 for LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/physiq_mod.F90

Timestamp:

Jun 1, 2018, 5:52:22 PM (6 years ago)

Author:

acozic

Message:

merge with trunk 3338
Add a flag chemistry_couple

File:

• LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/physiq_mod.F90

@@ -983 +983 @@
     ! false : lecture des aerosol dans un fichier
     !$OMP THREADPRIVATE(aerosol_couple)    
+    LOGICAL, SAVE :: chemistry_couple ! true  : use INCA chemistry O3 / false : use offline chemistry O3
+    !$OMP THREADPRIVATE(chemistry_couple)    
     INTEGER, SAVE :: flag_aerosol 
     !$OMP THREADPRIVATE(flag_aerosol) 
@@ -1142 +1144 @@
             fact_cldcon, facttemps,ok_newmicro,iflag_radia, &
             iflag_cld_th,iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs, &
-            ok_ade, ok_aie, ok_cdnc, aerosol_couple,  &
+            ok_ade, ok_aie, ok_cdnc, aerosol_couple, chemistry_couple,  &
             flag_aerosol, flag_aerosol_strat, new_aod, &
             bl95_b0, bl95_b1, &
@@ -1588 +1590 @@
                date0, &
                io_lon, &
-               io_lat)
+               io_lat, &
+               chemistry_couple)
 
           CALL VTe(VTinca)
@@ -3755 +3758 @@
 #ifdef INCA
           CALL radlwsw_inca  &
-               (kdlon,kflev,dist, rmu0, fract, solaire, &
+               (chemistry_couple, kdlon,kflev,dist, rmu0, fract, solaire, &
                paprs, pplay,zxtsol,albsol1, albsol2, t_seri,q_seri, &
                size(wo,3), wo(:, :, 1), &