Changeset 1889 for trunk/LMDZ.TITAN/libf/phytitan/phyredem.F90

Timestamp:

Jan 9, 2018, 12:26:53 PM (7 years ago)

Author:

jvatant

Message:

Making chemistry handling more flexible - Step 2
+ Added the calculation of the pressure grid in newstart
using Vervack profile in gr_kim_vervack routine
+ Next step : regridding !
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/phyredem.F90 (modified) (2 diffs)

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

@@ -9 +9 @@
                          alb,ith,pzmea,pzstd,pzsig,pzgam,pzthe)
 ! create physics restart file and write time-independent variables
+  use comchem_h, only: preskim
   use comsoil_h, only: volcapa, mlayer
   use geometry_mod, only: cell_area
@@ -104 +105 @@
   call put_var("soildepth","Soil mid-layer depth",mlayer)
   
+  ! Write the mid-layer upper chemistry pressure
+  call put_var("preskim","Upper chemistry mid-layer pressure",preskim)
+  
   ! Write longitudes
   call put_field("longitude","Longitudes of physics grid",lonfi)