chemistry_cycle_mod.f90 Source File

MODULE chemistry_cycle_mod

!=======================================================================
!   Authors: Anne Cozic and Thibaut Lurton
!
!  Purpose and description:
!  -----------------------
! Control module for the chemistry  tracers :
!   - Definition of fluxes to be exchanged with Pisces and Inca 
!
!=======================================================================


  IMPLICIT NONE

! Variables read from parmeter file physiq.def
  LOGICAL, SAVE, PUBLIC :: dms_cycle_cpl       ! Coupling of DMS fluxes between INCA and PISCES 
!$OMP THREADPRIVATE(dms_cycle_cpl)   

  LOGICAL, SAVE, PUBLIC :: n2o_cycle_cpl       ! Coupling of N2O fluxes between INCA and PISCES / PISCES and INCA 
!$OMP THREADPRIVATE(n2o_cycle_cpl)   

  LOGICAL, SAVE, PUBLIC :: ndp_cycle_cpl       ! Coupling of N deposition between INCA and PISCES
!$OMP THREADPRIVATE(ndp_cycle_cpl)

  LOGICAL, SAVE, PUBLIC :: nh3_cycle_cpl       ! Coupling of NH3 fluxes between PISCES and INCA
!$OMP THREADPRIVATE(nh3_cycle_cpl)
  
END MODULE chemistry_cycle_mod