Changeset 3669 for trunk/LMDZ.PLUTO/libf/phypluto/su_gases.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/su_gases.F90 (modified) (3 diffs)

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

@@ -8 +8 @@
 
   !==================================================================
-  !     
+  !
   !     Purpose
   !     -------
   !     Load atmospheric composition info
-  !     
+  !
   !     Authors
   !     -------
   !     R. Wordsworth (2011)
   !     Allocatable arrays by A. Spiga (2011)
-  !     
+  !
   !==================================================================
 
@@ -54 +54 @@
 
         ! find variable gas (if any)
-        if(gfrac(igas).eq.-1.0)then 
+        if(gfrac(igas).eq.-1.0)then
            if(vgas.eq.0)then
               vgas=igas
@@ -109 +109 @@
            igas_C2H2=igas
            count=count+1
-        !! GG MODIF 11 Jan 2019
-       elseif (trim(gnom(igas)).eq."OCS") then
+        elseif (trim(gnom(igas)).eq."C2H4") then
+           igas_C2H4=igas
+           count=count+1
+        elseif (trim(gnom(igas)).eq."OCS") then
            igas_OCS=igas
            count=count+1
-       elseif (trim(gnom(igas)).eq."HCl") then
+        elseif (trim(gnom(igas)).eq."HCl") then
            igas_HCl=igas
            count=count+1
-       elseif (trim(gnom(igas)).eq."HF") then
+        elseif (trim(gnom(igas)).eq."HF") then
            igas_HF=igas
            count=count+1