source: LMDZ6/trunk/libf/misc/lmdz_cppkeys_wrapper.F90 @ 5456

! ---------------------------------------------
! This file is part of an effort to replace most uses of preprocessor CPP keys by fortran variables,
! to improve readability, compilation coverage, and linting.
! CPP keys used here should ONLY be used here (unless specified explicitely),
! and imported through USE ..., ONLY: ... elsewhere
! CPP keys supported (key -> fortran variables associated):
!      NC_DOUBLE      -> nf90_format
!      CPP_PHYS       -> CPPKEY_PHYS
!      INCA           -> CPPKEY_INCA   ! -> also in lmdz_inca_wrappers.F90
!      REPROBUS       -> CPPKEY_REPROBUS  ! -> also in lmdz_reprobus_wrappers.F90
!      CPP_StratAer   -> CPPKEY_STRATAER
!      CPP_DUST       -> CPPKEY_DUST  ! only used in PHYS
!      CPP_INLANDSIS  -> CPPKEY_INLANDSIS  ! only used in PHYS
!      OUTPUT_PHYS_SCM-> CPPKEY_OUTPUTPHYSSCM ! only used in DYN1D
!      CPP_COSP       -> CPPKEY_COSP  ! only used in PHYS
!      CPP_COSP2      -> CPPKEY_COSP2  ! only used in PHYS
!      CPP_COSPV2     -> CPPKEY_COSPV2  ! only used in PHYS
!
! NB Laurent 09/24: Certaines clés sont utilisées uniquement dans la physique, mais on décide de les laisser dans misc/ pour l'instant.
! ---------------------------------------------

MODULE lmdz_cppkeys_wrapper
  USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY: REAL64, REAL32
  USE netcdf, ONLY: nf90_float, nf90_double
  IMPLICIT NONE; PRIVATE
  PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER, CPPKEY_DUST, &
          CPPKEY_INLANDSIS, CPPKEY_OUTPUTPHYSSCM, CPPKEY_COSP, CPPKEY_COSP2, &
          CPPKEY_COSPV2, CPPKEY_REPROBUS

#ifdef NC_DOUBLE
  INTEGER, PARAMETER :: nf90_format = nf90_double
#else
  INTEGER, PARAMETER :: nf90_format = nf90_float
#endif

#ifdef CPP_PHYS
  LOGICAL, PARAMETER :: CPPKEY_PHYS = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_PHYS = .FALSE.
#endif

#ifdef INCA
  LOGICAL, PARAMETER :: CPPKEY_INCA = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_INCA = .FALSE.
#endif

#ifdef REPROBUS
  LOGICAL, PARAMETER :: CPPKEY_REPROBUS = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_REPROBUS = .FALSE.
#endif

#ifdef CPP_StratAer
  LOGICAL, PARAMETER :: CPPKEY_STRATAER = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_STRATAER = .FALSE.
#endif

#ifdef CPP_Dust
  LOGICAL, PARAMETER :: CPPKEY_DUST = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_DUST = .FALSE.
#endif

#ifdef CPP_INLANDSIS
  LOGICAL, PARAMETER :: CPPKEY_INLANDSIS = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_INLANDSIS = .FALSE.
#endif

#ifdef OUTPUT_PHYS_SCM
  LOGICAL, PARAMETER :: CPPKEY_OUTPUTPHYSSCM = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_OUTPUTPHYSSCM = .FALSE.
#endif

#ifdef CPP_COSP
  LOGICAL, PARAMETER :: CPPKEY_COSP = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_COSP = .FALSE.
#endif

#ifdef CPP_COSP2
  LOGICAL, PARAMETER :: CPPKEY_COSP2 = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_COSP2 = .FALSE.
#endif

#ifdef CPP_COSPV2
  LOGICAL, PARAMETER :: CPPKEY_COSPV2 = .TRUE.
#else
  LOGICAL, PARAMETER :: CPPKEY_COSPV2 = .FALSE.
#endif

END MODULE lmdz_cppkeys_wrapper