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