Changeset 2542 for trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90

Timestamp:

Jul 5, 2021, 2:44:34 PM (3 years ago)

Author:

aslmd

Message:

Generic GCM:

Large update of the chemical modules

• Read chemical network from input files
• Init chemistry with ModernTrac?
• Photolysis online calculation

YJ

File:

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

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

@@ -422 +422 @@
      write(*,*) "photochem = ",photochem
 
+     write(*,*) "Use photolysis heat table ?"
+     photoheat=.false.         ! default value
+     call getin_p("photoheat",photoheat)
+     write(*,*) "photoheat = ",photoheat
+
+     write(*,*) "Use photolysis online calculation ?"
+     jonline=.false.         ! default value
+     call getin_p("jonline",jonline)
+     write(*,*) "jonline = ",jonline
+
+     write(*,*) "Use deposition ?"
+     depos=.false.         ! default value
+     call getin_p("depos",depos)
+     write(*,*) "depos = ",depos
+
      write(*,*)"Production of haze ?"
      haze=.false. ! default value