Changeset 1871 for trunk/LMDZ.TITAN/libf/phytitan/tabfi_mod.F90

Timestamp:

Dec 20, 2017, 12:23:42 PM (7 years ago)

Author:

jvatant

Message:

Making chemistry handling more flexible - Step 1
+ Enable upper_chemistry_dimension in the startfi files
+ Added a comchem_h for all the chemistry related stuff
+ start2archive adapted to these modifs : next step newstart !
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/tabfi_mod.F90 (modified) (5 diffs)

trunk/LMDZ.TITAN/libf/phytitan/tabfi_mod.F90

@@ -55 +55 @@
                            emissiv
       use comsoil_h, only: volcapa
+      use comchem_h, only: nlaykim_up
       use iostart, only: get_var
       use mod_phys_lmdz_para, only: is_parallel
@@ -149 +150 @@
         dtemisice(:)=0 !time scale for snow metamorphism
         volcapa=1000000 ! volumetric heat capacity of subsurface
-
+! chemistry
+        nlaykim_up=70 ! size of vertical grid for upper chemistry 
+        
       ELSE
 !-----------------------------------------------------------------------
@@ -204 +207 @@
 ! soil properties
       volcapa = tab_cntrl(tab0+35) ! volumetric heat capacity
+! chemistry
+      nlaykim_up = nint(tab_cntrl(tab0+40)) ! size of vertical grid for upper chemistry
 !-----------------------------------------------------------------------
 !       Save some constants for later use (as routine arguments)
@@ -256 +261 @@
 
       write(*,5) '(35)        volcapa',tab_cntrl(tab0+35),volcapa
+
+      write(*,5) '(40)     nlaykim_up',tab_cntrl(tab0+40),float(nlaykim_up)
 
       write(*,*)
@@ -564 +571 @@
  
       write(*,5) '(35)        volcapa',tab_cntrl(tab0+35),volcapa
+      
+      write(*,5) '(40)     nlaykim_up',tab_cntrl(tab0+40),float(nlaykim_up)
 
       write(*,*)