Changeset 2831 for trunk/LMDZ.GENERIC/libf/phystd/su_gases.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/su_gases.F90 (modified) (1 diff)

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

@@ -109 +109 @@
            igas_C2H2=igas
            count=count+1
+        !! GG MODIF 11 Jan 2019
+       elseif (trim(gnom(igas)).eq."OCS") then
+           igas_OCS=igas
+           count=count+1
+       elseif (trim(gnom(igas)).eq."HCl") then
+           igas_HCl=igas
+           count=count+1
+       elseif (trim(gnom(igas)).eq."HF") then
+           igas_HF=igas
+           count=count+1
         endif
      enddo