Changeset 2831 for trunk/LMDZ.GENERIC/libf/phystd/gases_h.F90

Timestamp:

Nov 23, 2022, 4:41:34 PM (2 years ago)

Author:

emillour

Message:

Generic PCM:
Add the possibility to include Venus-like aerosols (triggered by option
aerovenus=.true. in callphys.def); baseline is to use 5 distinct scatterers
but each may be turned on/off (via aerovenus1, aerovenus2, aerovenus2p,
aerovenus3, aerovenusUV flags which may be specified in callphys.def).
GG

File:

• trunk/LMDZ.GENERIC/libf/phystd/gases_h.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/gases_h.F90

@@ -31 +31 @@
       integer :: igas_C2H2
       integer :: igas_C2H6
+!! GG MODIF Jan 2019
+      integer :: igas_OCS
+      integer :: igas_HCl
+      integer :: igas_HF            
 !!$OMP THREADPRIVATE(ngasmx,vgas,gnom,gfrac,&
 !       !$OMP igas_H2,igas_He,igas_H2O,igas_CO2,igas_CO,igas_N2,&
 !       !$OMP igas_O2,igas_SO2,igas_H2S,igas_CH4,igas_NH3,igas_C2H2,igas_C2H6)
-
+! The saved variables here are not OMP THREADPRIVATE because loaded by
+! the OMP master only (see su_gases.F90) and thus shared by all threads
       end module gases_h