modd_dstn.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_dst_n

!Purpose: 
!Declare variables and constants necessary to do the dust calculations
!Here are only the variables which depend on the grid!

!Author: Alf Grini <alf.grini@cnrm.meteo.fr>

!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE dst_t
  !
  INTEGER, DIMENSION(:), POINTER     :: NVT_DST           !MASK: dust vegetation number to vegetation number
  INTEGER, DIMENSION(:,:), POINTER   :: NSIZE_PATCH_DST   !Number of points for a patch and a vegetation class
  INTEGER, DIMENSION(:,:,:), POINTER :: NR_PATCH_DST      !Mask from patch-points to dust-points
  REAL,DIMENSION(:), POINTER         :: Z0_EROD_DST       !Roughness length momentum over erodible dust emitter sfc
  CHARACTER(LEN=6), DIMENSION(:), POINTER  :: CSV_DST     !Name of scalar variables 
  REAL, DIMENSION(:,:,:),POINTER    :: XSFDST             !Dust variables to be send to output
  REAL, DIMENSION(:,:,:),POINTER    :: XSFDSTM            !Dust variables to be send to output
  REAL,DIMENSION(:), POINTER   :: XEMISRADIUS_DST         !Number median radius for each source mode
  REAL,DIMENSION(:), POINTER   :: XEMISSIG_DST            !sigma for each source mode
  REAL,DIMENSION(:), POINTER   :: XMSS_FRC_SRC            !Mass fraction of each source mode  
  !
END TYPE dst_t



 CONTAINS

!




SUBROUTINE dst_init(YDST)
TYPE(dst_t), INTENT(INOUT) :: ydst
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_DST_N:DST_INIT",0,zhook_handle)
  nullify(ydst%NVT_DST)
  nullify(ydst%NSIZE_PATCH_DST)
  nullify(ydst%NR_PATCH_DST)
  nullify(ydst%Z0_EROD_DST)
  nullify(ydst%CSV_DST)
  nullify(ydst%XSFDST)
  nullify(ydst%XSFDSTM)
  nullify(ydst%XEMISRADIUS_DST)
  nullify(ydst%XEMISSIG_DST)
  nullify(ydst%XMSS_FRC_SRC)
IF (lhook) CALL dr_hook("MODD_DST_N:DST_INIT",1,zhook_handle)
END SUBROUTINE dst_init


END MODULE modd_dst_n