Ignore:
Timestamp:
Jan 10, 2018, 3:46:51 PM (7 years ago)
Author:
jvatant
Message:

Follow-up of r1890 - actually found a a cleaner way
to manage the chem. fields, it's useless to call them
by their name ...
--JVO

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1890 r1891  
    22
    33! Stores data relative to upper chemistry in the GCM
    4 ! For the newstart and satrt2archive, there are specific comchem_***_h modules.
     4! For newstart there is a specific comchem_newstart_h module.
    55
    66! Author : Jan Vatant d'Ollone (2017)
    … …  
    2020!$OMP_THREADPRIVATE(zlay_kim)
    2121
     22   REAL,SAVE,ALLOCATABLE,DIMENSION(:,:,:) :: ykim_up ! Upper chemistry fields (kg/kg)
     23!$OMP_THREADPRIVATE(ykim_up)
    2224
    2325END MODULE comchem_h
Note: See TracChangeset for help on using the changeset viewer.