modd_dummy_surf_fieldsn.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_dummy_surf_fields_n
!     ####################
!
!!****  *MODD_DUMMY_SURF_FIELDS* - declaration of dummy physiographic data arrays
!!
!!    PURPOSE
!!    -------
!       The purpose of this declarative module is to specify  the 
!     dummy physiographic data arrays.
!
!!
!!    AUTHOR
!!    ------
!!      V. Masson   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    03/2004                      
!-------------------------------------------------------------------------------
!
!*       0.   DECLARATIONS
!             ------------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE dummy_surf_fields_t
!
  INTEGER                                          :: ndummy_nbr
!                          ! number of dummy pgd fields chosen by user
  CHARACTER(LEN=3) , DIMENSION(:), POINTER         :: cdummy_area 
!                          ! areas where dummy 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=20), DIMENSION(:), POINTER         :: cdummy_name 
!                          ! name of the dummy pgd fields (for information)
  REAL,              DIMENSION(:,:), POINTER       :: xdummy_fields
!                          ! dummy pgd fields themselves
!
!-------------------------------------------------------------------------------
!
END TYPE dummy_surf_fields_t

CONTAINS
!
!
SUBROUTINE dummy_surf_fields_init(YDUMMY_SURF_FIELDS)
TYPE(dummy_surf_fields_t), INTENT(INOUT) :: YDUMMY_SURF_FIELDS
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_DUMMY_SURF_FIELDS_N:DUMMY_SURF_FIELDS_INIT",0,zhook_handle)
  NULLIFY(ydummy_surf_fields%CDUMMY_NAME)
  NULLIFY(ydummy_surf_fields%CDUMMY_AREA)
  NULLIFY(ydummy_surf_fields%XDUMMY_FIELDS)
ydummy_surf_fields%NDUMMY_NBR=0
IF (lhook) CALL dr_hook("MODD_DUMMY_SURF_FIELDS_N:DUMMY_SURF_FIELDS_INIT",1,zhook_handle)
END SUBROUTINE dummy_surf_fields_init


END MODULE modd_dummy_surf_fields_n