modd_ch_emis_fieldn.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     ###########################
      MODULE modd_ch_emis_field_n
!     ###########################
!
!!****  *MODD_CH_EMIS_FIELD_n* - declaration of chemical emission data arrays
!!
!!    PURPOSE
!!    -------
!       The purpose of this declarative module is to specify  the 
!     chemical emission data arrays.
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!      
!!
!!    AUTHOR
!!    ------
!!      D. Gazen   *L.A.*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    08/03/2001                      
!!      01/12/03    (D.Gazen) change emissions handling for surf. externalization
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_type_efutil
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE ch_emis_field_t
!
  REAL               :: XTIME_SIMUL  = 0.
  INTEGER            :: NTIME_MAX
  INTEGER            :: NEMIS_NBR
!                          ! number of chemical pgd fields chosen by user
  CHARACTER(LEN=3) , DIMENSION(:), POINTER :: CEMIS_AREA
!                          ! areas where chemical pgd fields are defined
!                          ! 'ALL' : everywhere
!                          ! 'SEA' : where sea exists
!                          ! 'LAN' : where land exists
!                          ! 'WAT' : where inland water exists
!                          ! 'NAT' : where natural or agricultural areas exist
!                          ! 'TWN' : where town areas exist
!                          ! 'STR' : where streets are present
!                          ! 'BLD' : where buildings are present
!                          !
  CHARACTER(LEN=40), DIMENSION(:), POINTER :: CEMIS_COMMENT ! comment
  CHARACTER(LEN=40), DIMENSION(:), POINTER :: CEMIS_NAME
!                          ! name of the chemical pgd fields (emitted species)
!
  INTEGER,           DIMENSION(:), POINTER :: NEMIS_TIME   ! emission time
!
  REAL,              DIMENSION(:,:), POINTER:: XEMIS_FIELDS ! emission pgd fields values
!
  INTEGER                                          :: NEMISPEC_NBR ! Number of chemical species
!
  TYPE(emissvar_t),  DIMENSION(:), POINTER :: TSEMISS      ! Offline emission struct array
!
  TYPE(pronosvar_t),               POINTER     :: TSPRONOSLIST ! Head pointer on pronostic
!                                                              variables list
!-------------------------------------------------------------------------------
!
END TYPE ch_emis_field_t



 CONTAINS

!




SUBROUTINE ch_emis_field_init(YCH_EMIS_FIELD)
TYPE(ch_emis_field_t), INTENT(INOUT) :: ych_emis_field
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_CH_EMIS_FIELD_N:CH_EMIS_FIELD_INIT",0,zhook_handle)
  nullify(ych_emis_field%CEMIS_AREA)
  nullify(ych_emis_field%CEMIS_COMMENT)
  nullify(ych_emis_field%CEMIS_NAME)
  nullify(ych_emis_field%NEMIS_TIME)
  nullify(ych_emis_field%XEMIS_FIELDS)
  nullify(ych_emis_field%TSEMISS)
ych_emis_field%XTIME_SIMUL=0.
ych_emis_field%NEMIS_NBR=0
ych_emis_field%NTIME_MAX=-1
ych_emis_field%NEMISPEC_NBR=0
IF (lhook) CALL dr_hook("MODD_CH_EMIS_FIELD_N:CH_EMIS_FIELD_INIT",1,zhook_handle)
END SUBROUTINE ch_emis_field_init


END MODULE modd_ch_emis_field_n