Changeset 1887 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Jan 8, 2018, 11:40:54 PM (7 years ago)

Author:

jvatant

Message:

For more convenience values of upper chemistry
pressure grid "preskim" is stored in the startfi too.
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/comchem_h.F90 (modified) (1 diff)

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

@@ -13 +13 @@
 ! NB : For the startfile we use nlaykim_up grid (upper atm) and for outputs we use nlaykim_tot grid (all layers)
 
-   REAL,SAVE,ALLOCATABLE,DIMENSION(:,:) :: zlay_kim  ! Altitude (km) of all chemistry layers
+   REAL,SAVE,ALLOCATABLE,DIMENSION(:) :: preskim  ! Pressure (Pa) of upper chemistry (mid)-layers
+!$OMP_THREADPRIVATE(preskim)
+
+   REAL,SAVE,ALLOCATABLE,DIMENSION(:,:) :: zlay_kim  ! Altitude (km) of all chemistry (mid)-layers
 !$OMP_THREADPRIVATE(zlay_kim)