modd_ch_snapn.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_snap_n
!     ###########################
!
!!****  *MODD_CH_SNAP_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
!!      M.Leriche 04/2014  change length of CHARACTER for emission 6->12
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
USE modd_type_efutil
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
TYPE ch_emis_snap_t
!
  INTEGER            :: NEMIS_NBR
!                          ! number of chemical pgd fields chosen by user
  CHARACTER(LEN=3)                         :: CCONVERSION
!                          ! Unit conversion code
  CHARACTER(LEN=5)                         :: CSNAP_TIME_REF
!                          ! Reference time for Snap temporal profiles
!                          !  'UTC  ' : UTC   time
!                          !  'SOLAR' : SOLAR time
!                          !  'LEGAL' : LEGAL time
!                          !

  CHARACTER(LEN=12), DIMENSION(:), POINTER :: CEMIS_NAME
!                          ! name of the chemical fields (emitted species)
  CHARACTER(LEN=40), DIMENSION(:), POINTER :: CEMIS_COMMENT
!                          ! comment on the chemical fields (emitted species)
!
  REAL,     DIMENSION(:,:,:), POINTER:: XEMIS_FIELDS_SNAP ! Emission factor for
!                                                         ! each chemical specie and
!                                                         ! each snap
  REAL,     DIMENSION(:,:),   POINTER:: XEMIS_FIELDS      ! Emission for each specie
!                                                         ! (at a given time taking into 
!                                                         ! account all snaps)
  REAL,     DIMENSION(:),     POINTER:: XDELTA_LEGAL_TIME ! Difference (in hours)) between
!                                                         ! Legal time and UTC time
  INTEGER            :: NEMIS_SNAP                        ! number of snaps
  INTEGER            :: NSNAP_M                           ! number of months
  INTEGER            :: NSNAP_D                           ! number of days
  INTEGER            :: NSNAP_H                           ! number of hours
  REAL,              DIMENSION(:,:,:), POINTER:: XSNAP_MONTHLY
  REAL,              DIMENSION(:,:,:), POINTER:: XSNAP_DAILY
  REAL,              DIMENSION(:,:,:), POINTER:: XSNAP_HOURLY
  REAL,              DIMENSION(:),     POINTER:: XCONVERSION ! conversion factor
!
  TYPE(pronosvar_t),               POINTER     :: TSPRONOSLIST ! Head pointer on pronostic
!                                                              variables list
!-------------------------------------------------------------------------------
!
END TYPE ch_emis_snap_t



 CONTAINS

!




SUBROUTINE ch_emis_snap_init(YCH_EMIS_SNAP)
TYPE(ch_emis_snap_t), INTENT(INOUT) :: ych_emis_snap
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_CH_SNAP_n:CH_EMIS_FIELD_INIT",0,zhook_handle)
  nullify(ych_emis_snap%CEMIS_COMMENT)
  nullify(ych_emis_snap%CEMIS_NAME)
  nullify(ych_emis_snap%XDELTA_LEGAL_TIME)
  nullify(ych_emis_snap%XEMIS_FIELDS)
  nullify(ych_emis_snap%XEMIS_FIELDS_SNAP)
  nullify(ych_emis_snap%XSNAP_DAILY)
  nullify(ych_emis_snap%XSNAP_HOURLY)
  nullify(ych_emis_snap%XSNAP_MONTHLY)
  nullify(ych_emis_snap%XCONVERSION)
ych_emis_snap%CCONVERSION=' '
ych_emis_snap%CSNAP_TIME_REF=' '
ych_emis_snap%NEMIS_NBR=0
ych_emis_snap%NEMIS_SNAP=0
ych_emis_snap%NSNAP_M=0
ych_emis_snap%NSNAP_D=0
ych_emis_snap%NSNAP_H=0
IF (lhook) CALL dr_hook("MODD_CH_SNAP_n:CH_EMIS_FIELD_INIT",1,zhook_handle)
END SUBROUTINE ch_emis_snap_init


END MODULE modd_ch_snap_n