Changeset 2613 for trunk/LMDZ.MARS/libf/aeronomars/calchim_mod.F90

Timestamp:

Jan 18, 2022, 3:56:18 PM (3 years ago)

Author:

romain.vande

Message:

LMDZ_MARS RV : Open_MP; Reading files in parallel for PHOTOCHEMISTRY parametrisation
(photochem = .true.)

File:

• trunk/LMDZ.MARS/libf/aeronomars/calchim_mod.F90 (modified) (4 diffs)

trunk/LMDZ.MARS/libf/aeronomars/calchim_mod.F90

@@ -118 +118 @@
       integer :: foundswitch, lswitch
       integer,save :: chemthermod
+
+!$OMP THREADPRIVATE(nbq,niq,chemthermod) 
 
       integer,save :: i_co2  = 0
@@ -159 +161 @@
       integer,save :: i_hdo2=0
 
+!$OMP THREADPRIVATE(i_co2,i_co,i_o,i_o1d,i_o2,i_o3,i_h,i_h2,i_oh,i_ho2,i_h2o2,i_ch4)
+!$OMP THREADPRIVATE(i_n2,i_h2o,i_n,i_no,i_no2,i_n2d,i_co2plus,i_oplus,i_o2plus,i_coplus,i_cplus,i_nplus)
+!$OMP THREADPRIVATE(i_noplus,i_n2plus,i_hplus,i_hco2plus,i_hcoplus,i_h2oplus,i_h3oplus,i_ohplus,i_elec,i_hdo,i_od,i_d,i_hd,i_do2,i_hdo2)
+
       integer :: ig_vl1
 
@@ -187 +193 @@
                                    ! layers (default), or upper atmospheric 
                                    ! scheme in the thermosphere
+
+!$OMP THREADPRIVATE(firstcall,depos,ionchem,deutchem,jonline,unichim)
 
 !     for each column of atmosphere:
@@ -217 +225 @@
       real :: iter_3d(ngrid,nlayer) ! Number of chemical iterations
                                     !  within one physical timestep
+
+!$OMP THREADPRIVATE(output)
 
 !=======================================================================