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

Timestamp:

Oct 19, 2017, 11:26:24 PM (7 years ago)

Author:

bclmd

Message:

Adding photochemistry to LMDZ Generic

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90 (modified) (2 diffs)

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

@@ -366 +366 @@
      write(*,*) "ok_slab_heat_transp = ",ok_slab_heat_transp
 
+! Photochemistry and chemistry in the thermosphere
+
+     write(*,*) "Use photochemistry ?"
+     photochem=.false.         ! default value
+     call getin_p("photochem",photochem)
+     write(*,*) "photochem = ",photochem
+
+     write(*,*)"Production of haze ?"
+     haze=.false. ! default value
+     call getin_p("haze",haze)
+     write(*,*)" haze = ",haze
 
 
@@ -763 +774 @@
   ! allocate "comsoil_h" arrays
   call ini_comsoil_h(ngrid)
-      
+    
   END SUBROUTINE inifis