modd_emis_gr_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_emis_gr_field_n
!     ###########################
!
!!****  *MODD_EMIS_GR_FIELD_n* - declaration of chemical emission data arrays
!!                               for model n
!!    PURPOSE
!!    -------
!       The purpose of this declarative module is to specify  the 
!     chemical emission data arrays for model n.
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!      Book2 of documentation of Meso-NH (module MODD_EMIS_GR_FIELD)
!!      
!!
!!    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 emis_gr_field_t
!
!
  INTEGER                                     :: NEMIS_GR_NBR
!                          ! number of chemical pgd fields chosen by user
  CHARACTER(LEN=3) , DIMENSION(:), POINTER:: CEMIS_GR_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_GR_NAME
!                          ! name of the chemical pgd fields (emitted species)
!
  INTEGER,       DIMENSION(:),     POINTER:: NEMIS_GR_TIME   ! emission time
!
  REAL,          DIMENSION(:,:,:), POINTER:: XEMIS_GR_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 emis_gr_field_t



 CONTAINS

!




SUBROUTINE emis_gr_field_init(YEMIS_GR_FIELD)
TYPE(emis_gr_field_t), INTENT(INOUT) :: yemis_gr_field
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_EMIS_GR_FIELD_N:EMIS_GR_FIELD_INIT",0,zhook_handle)
  nullify(yemis_gr_field%CEMIS_GR_AREA)
  nullify(yemis_gr_field%CEMIS_GR_NAME)
  nullify(yemis_gr_field%NEMIS_GR_TIME)
  nullify(yemis_gr_field%XEMIS_GR_FIELDS)
yemis_gr_field%NEMIS_GR_NBR=0
yemis_gr_field%NEMISPEC_NBR=0
IF (lhook) CALL dr_hook("MODD_EMIS_GR_FIELD_N:EMIS_GR_FIELD_INIT",1,zhook_handle)
END SUBROUTINE emis_gr_field_init


END MODULE modd_emis_gr_field_n