Changeset 1899 for trunk/LMDZ.TITAN/libf/phytitan
- Timestamp:
- Jan 26, 2018, 3:02:55 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/comchem_h.F90
r1894 r1899 4 4 ! Purpose : Stores data relative to chemistry in the GCM and upper chemistry 5 5 ! ------- 6 ! Please note that upper fields ykim_up are in molar fraction ! 7 ! 6 8 ! NB : For newstart there is a specific comchem_newstart_h module. 7 9 ! … … 52 54 !$OMP_THREADPRIVATE(zlay_kim) 53 55 54 REAL,SAVE,ALLOCATABLE,DIMENSION(:,:,:) :: ykim_up ! Upper chemistry fields ( kg/kg)56 REAL,SAVE,ALLOCATABLE,DIMENSION(:,:,:) :: ykim_up ! Upper chemistry fields (mol/mol) 55 57 !$OMP_THREADPRIVATE(ykim_up) 56 58
Note: See TracChangeset
for help on using the changeset viewer.