Changeset 3669 for trunk/LMDZ.PLUTO/libf/phypluto/gases_h.F90

Timestamp:

Mar 5, 2025, 2:13:17 PM (4 months ago)

Author:

afalco

Message:

Pluto: add C2H4 as gas.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/gases_h.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/gases_h.F90

@@ -5 +5 @@
 !======================================================================C
 !
-!     gases_h    
+!     gases_h
 !
 !     A F90-allocatable version for gases.h -- AS 12/2011
@@ -30 +30 @@
       integer :: igas_NH3
       integer :: igas_C2H2
+      integer :: igas_C2H4
       integer :: igas_C2H6
 !! GG MODIF Jan 2019
       integer :: igas_OCS
       integer :: igas_HCl
-      integer :: igas_HF            
+      integer :: igas_HF
 !!$OMP THREADPRIVATE(ngasmx,vgas,gnom,gfrac,&
 !       !$OMP igas_H2,igas_He,igas_H2O,igas_N2,igas_CO,igas_N2,&
-!       !$OMP igas_O2,igas_SO2,igas_H2S,igas_CH4,igas_NH3,igas_C2H2,igas_C2H6)
+!       !$OMP igas_O2,igas_SO2,igas_H2S,igas_CH4,igas_NH3,igas_C2H2,igas_C2H4,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