source: LMDZ6/branches/Amaury_dev/libf/phylmd/chemistry_cycle_mod.F90 @ 5099

Last change on this file since 5099 was 5099, checked in by abarral, 4 months ago

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File size: 800 bytes
Line 
1MODULE chemistry_cycle_mod
2
3!=======================================================================
4!   Authors: Anne Cozic and Thibaut Lurton
5
6!  Purpose and description:
7!  -----------------------
8! Control module for the chemistry  tracers :
9!   - Definition of fluxes to be exchanged with Pisces and Inca
10
11!=======================================================================
12
13
14  IMPLICIT NONE
15
16! Variables read from parmeter file physiq.def
17  LOGICAL, SAVE, PUBLIC :: dms_cycle_cpl       ! Coupling of DMS fluxes between LMDZ/ORCHIDEE and LMDZ/OCEAN(PISCES)
18!$OMP THREADPRIVATE(dms_cycle_cpl)   
19
20  LOGICAL, SAVE, PUBLIC :: n2o_cycle_cpl       ! Coupling of N2O fluxes between LMDZ/ORCHIDEE and LMDZ/OCEAN(PISCES)
21!$OMP THREADPRIVATE(n2o_cycle_cpl)   
22
23
24 
25END MODULE chemistry_cycle_mod
Note: See TracBrowser for help on using the repository browser.