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