BROWSER/out_doc80/diag__teb__garden__initn_8F90_source.html

 !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.

 !     #########

       SUBROUTINE diag_teb_garden_init_n (DGMTO, DGGD, TGD, TGDO, TGDP, TVG, &

                                          hprogram,klu,ksw)

 !     #####################

 !

 !!****  *DIAG_TEB_GARDEN_INIT_n* - routine to initialize TEB-ISBA diagnostic variables

 !!

 !!    PURPOSE

 !!    -------

 !!

 !!**  METHOD

 !!    ------

 !!

 !!    EXTERNAL

 !!    --------

 !!

 !!

 !!    IMPLICIT ARGUMENTS

 !!    ------------------

 !!

 !!    REFERENCE

 !!    ---------

 !!

 !!

 !!    AUTHOR

 !!    ------

 !!      V. Masson   *Meteo France*

 !!

 !!    MODIFICATIONS

 !!    -------------

 !!      Original    02/2003

 !!      modified    11/2003 by P. LeMoigne: surface cumulated energy budget

 !!      modified    10/2004 by P. LeMoigne: surface miscellaneous fields

 !!      B. Decharme    2008    New diag for water budget and allow to reset

 !               cumulatives variables at the beginning of a run

 !-------------------------------------------------------------------------------

 !

 !*       0.    DECLARATIONS

 !              ------------

 !

 !

 USE modd_diag_misc_teb_option_n, ONLY : diag_misc_teb_options_t

 USE modd_diag_teb_garden_n, ONLY : diag_teb_garden_t

 USE modd_teb_garden_n, ONLY : teb_garden_t

 USE modd_teb_garden_option_n, ONLY : teb_garden_options_t

 USE modd_teb_garden_pgd_n, ONLY : teb_garden_pgd_t

 USE modd_teb_veg_n, ONLY : teb_veg_options_t

 !

 USE modd_surf_par,          ONLY : xundef

 USE modd_type_date_surf

 !

 USE yomhook   ,ONLY : lhook,   dr_hook

 USE parkind1  ,ONLY : jprb

 !

 IMPLICIT NONE

 !

 !*       0.1   Declarations of arguments

 !              -------------------------

 !

 !

 TYPE(diag_misc_teb_options_t), INTENT(INOUT) :: dgmto

 TYPE(diag_teb_garden_t), INTENT(INOUT) :: dggd

 TYPE(teb_garden_t), INTENT(INOUT) :: tgd

 TYPE(teb_garden_options_t), INTENT(INOUT) :: tgdo

 TYPE(teb_garden_pgd_t), INTENT(INOUT) :: tgdp

 TYPE(teb_veg_options_t), INTENT(INOUT) :: tvg

 !

 INTEGER, INTENT(IN)         :: klu       ! size of arrays

 INTEGER, INTENT(IN)         :: ksw       ! spectral bands

  CHARACTER(LEN=6), INTENT(IN):: hprogram  ! program calling

 !

 !*       0.2   Declarations of local variables

 !              -------------------------------

 !

 INTEGER           :: iresp          ! IRESP  : return-code if a problem appears

  CHARACTER(LEN=12) :: yrec           ! Name of the article to be read

 REAL(KIND=JPRB) :: zhook_handle

 !

 !-------------------------------------------------------------------------------

 !

 IF (lhook) CALL dr_hook('DIAG_TEB_GARDEN_INIT_N',0,zhook_handle)

 !

 ALLOCATE(dggd%XRI     (klu))

 !

 dggd%XRI         = xundef

 !

 ALLOCATE(dggd%XCD     (klu))

 ALLOCATE(dggd%XCH     (klu))

 ALLOCATE(dggd%XRN     (klu))

 ALLOCATE(dggd%XH      (klu))

 ALLOCATE(dggd%XGFLUX  (klu))

 ALLOCATE(dggd%XQS     (klu))

 !

 dggd%XCD         = xundef

 dggd%XCH         = xundef

 dggd%XRN         = xundef

 dggd%XH          = xundef

 dggd%XGFLUX      = xundef

 dggd%XQS         = xundef

 !

 ALLOCATE(dggd%XLEI    (klu))

 ALLOCATE(dggd%XLEG    (klu))

 ALLOCATE(dggd%XLEGI   (klu))

 ALLOCATE(dggd%XLEV    (klu))

 ALLOCATE(dggd%XLES    (klu))

 ALLOCATE(dggd%XLER    (klu))

 ALLOCATE(dggd%XLETR   (klu))

 ALLOCATE(dggd%XEVAP   (klu))

 ALLOCATE(dggd%XDRAIN  (klu))

 ALLOCATE(dggd%XRUNOFF (klu))

 ALLOCATE(dggd%XHORT   (klu))

 ALLOCATE(dggd%XDRIP   (klu))

 ALLOCATE(dggd%XRRVEG  (klu))

 ALLOCATE(dggd%XMELT   (klu))

 ALLOCATE(dggd%XIRRIG_FLUX(klu))

 !

 dggd%XLEI        = xundef

 dggd%XLEG        = xundef

 dggd%XLEGI       = xundef

 dggd%XLEV        = xundef

 dggd%XLES        = xundef

 dggd%XLER        = xundef

 dggd%XLETR       = xundef

 dggd%XEVAP       = xundef

 dggd%XDRAIN      = xundef

 dggd%XRUNOFF     = xundef

 dggd%XHORT       = xundef

 dggd%XDRIP       = xundef

 dggd%XRRVEG      = xundef

 dggd%XMELT       = xundef

 dggd%XIRRIG_FLUX = xundef

 !

 ALLOCATE(dggd%XCG     (klu))

 ALLOCATE(dggd%XC1     (klu))

 ALLOCATE(dggd%XC2     (klu))

 ALLOCATE(dggd%XWGEQ   (klu))

 ALLOCATE(dggd%XCT     (klu))

 ALLOCATE(dggd%XRS     (klu))

 ALLOCATE(dggd%XCDN    (klu))

 ALLOCATE(dggd%XHU     (klu))

 ALLOCATE(dggd%XHUG    (klu))

 ALLOCATE(dggd%XRESTORE(klu))

 ALLOCATE(dggd%XUSTAR  (klu))

 IF (tvg%CPHOTO/='NON') THEN

   ALLOCATE(dggd%XIACAN  (klu,SIZE(tgdp%XABC)          ))

 ELSE

   ALLOCATE(dggd%XIACAN  (0,0))

 END IF

 !

 dggd%XCG         = xundef

 dggd%XC1         = xundef

 dggd%XC2         = xundef

 dggd%XWGEQ       = xundef

 dggd%XCT         = xundef

 dggd%XRS         = xundef

 dggd%XCDN        = xundef

 dggd%XHU         = xundef

 dggd%XHUG        = xundef

 dggd%XRESTORE    = xundef

 dggd%XUSTAR      = xundef

 IF (tvg%CPHOTO/='NON') THEN

   dggd%XIACAN    = xundef

 END IF

 !

 ALLOCATE(dggd%XSNOWTEMP(klu,tgd%CUR%TSNOW%NLAYER        ))

 ALLOCATE(dggd%XSNOWLIQ (klu,tgd%CUR%TSNOW%NLAYER        ))

 ALLOCATE(dggd%XSNOWDZ  (klu,tgd%CUR%TSNOW%NLAYER        ))

 ALLOCATE(dggd%XSNOWHMASS(klu))

 ALLOCATE(dggd%XMELTADV  (klu))

 !

 dggd%XSNOWTEMP   = xundef

 dggd%XSNOWLIQ    = xundef

 dggd%XSNOWDZ     = xundef

 dggd%XSNOWHMASS  = xundef

 dggd%XMELTADV    = xundef

 !

 ALLOCATE(dggd%XHV     (klu))

 ALLOCATE(dggd%XALBT   (klu))

 ALLOCATE(dggd%XEMIST  (klu))

 !

 dggd%XHV               = xundef

 dggd%XALBT             = xundef

 dggd%XEMIST            = xundef

 !

 ALLOCATE(dggd%XFAPAR    (klu))

 ALLOCATE(dggd%XFAPIR    (klu))

 ALLOCATE(dggd%XFAPAR_BS (klu))

 ALLOCATE(dggd%XFAPIR_BS (klu))

 ALLOCATE(dggd%XDFAPARC  (klu))

 ALLOCATE(dggd%XDFAPIRC  (klu))

 ALLOCATE(dggd%XDLAI_EFFC(klu))

 !

 dggd%XFAPAR     = xundef

 dggd%XFAPIR     = xundef

 dggd%XFAPAR_BS  = xundef

 dggd%XFAPIR_BS  = xundef

 dggd%XDFAPARC   = xundef

 dggd%XDFAPIRC   = xundef

 dggd%XDLAI_EFFC = xundef

 !

 !* surface energy budget

 !

 !IF (LSURF_BUDGET) THEN

   !

   ALLOCATE(dggd%XSWD      (klu))

   ALLOCATE(dggd%XSWU      (klu))

   ALLOCATE(dggd%XSWBD     (klu,ksw))

   ALLOCATE(dggd%XSWBU     (klu,ksw))

   ALLOCATE(dggd%XLWD      (klu))

   ALLOCATE(dggd%XLWU      (klu))

   ALLOCATE(dggd%XFMU      (klu))

   ALLOCATE(dggd%XFMV      (klu))

   !

   dggd%XSWD     = xundef

   dggd%XSWU     = xundef

   dggd%XSWBD    = xundef

   dggd%XSWBU    = xundef

   dggd%XLWD     = xundef

   dggd%XLWU     = xundef

   dggd%XFMU     = xundef

   dggd%XFMV     = xundef

   !

 !END IF

 !

 !* surface temperature and parameters at 2m

 !

 ALLOCATE(dggd%XTS    (klu))

 dggd%XTS     = xundef

 ALLOCATE(dggd%XTSRAD (klu))

 dggd%XTSRAD  = xundef

 !

 !* miscellaneous surface fields

 !

 IF (dgmto%LSURF_MISC_BUDGET) THEN

   ALLOCATE(dggd%XSWI    (klu,tgdo%NGROUND_LAYER))

   ALLOCATE(dggd%XTSWI   (klu,tgdo%NGROUND_LAYER))

   ALLOCATE(dggd%XTWSNOW (klu))

   ALLOCATE(dggd%XTDSNOW (klu))

   dggd%XSWI     = xundef

   dggd%XTSWI    = xundef

   dggd%XTWSNOW  = xundef

   dggd%XTDSNOW  = xundef

 ELSE

   ALLOCATE(dggd%XSWI    (0,0))

   ALLOCATE(dggd%XTSWI   (0,0))

   ALLOCATE(dggd%XTWSNOW (0))

   ALLOCATE(dggd%XTDSNOW (0))

 ENDIF

 !

 ALLOCATE(dggd%XALBT   (klu))

 ALLOCATE(dggd%XGPP    (klu))

 ALLOCATE(dggd%XRESP_AUTO  (klu))

 ALLOCATE(dggd%XRESP_ECO   (klu))

 !

 dggd%XALBT    = xundef

 dggd%XGPP     = xundef

 dggd%XRESP_AUTO   = xundef

 dggd%XRESP_ECO    = xundef

 !

 !END IF

 !

 !* transfer coefficients

 !

 !IF (LCOEF) THEN

   !

   ALLOCATE(dggd%XCE            (klu))

   ALLOCATE(dggd%XZ0_WITH_SNOW  (klu))

   ALLOCATE(dggd%XZ0H_WITH_SNOW (klu))

   ALLOCATE(dggd%XZ0EFF         (klu))

   !

   dggd%XCE            = xundef

   dggd%XZ0_WITH_SNOW  = xundef

   dggd%XZ0H_WITH_SNOW = xundef

   dggd%XZ0EFF         = xundef

 !END IF

 !

 !

 !* surface humidity

 !

 !IF (LSURF_VARS) THEN

   ALLOCATE(dggd%XQS            (klu))

   !

   dggd%XQS            = xundef

 !END IF

 !

 !* Irrigation threshold

 !

 !IF (LAGRIP) THEN

   ALLOCATE(dggd%XSEUIL(klu))

   !

   dggd%XSEUIL         = xundef

 !END IF

 !

 IF (lhook) CALL dr_hook('DIAG_TEB_GARDEN_INIT_N',1,zhook_handle)

 !

 !-------------------------------------------------------------------------------

 !

 END SUBROUTINE diag_teb_garden_init_n

modd_teb_garden_n::teb_garden_t
Definition: modd_teb_gardenn.F90:112

modd_teb_garden_pgd_n
Definition: modd_teb_garden_pgdn.F90:6

diag_teb_garden_init_n
subroutine diag_teb_garden_init_n(DGMTO, DGGD, TGD, TGDO, TGDP, TVG, HPROGRAM, KLU, KSW)
Definition: diag_teb_garden_initn.F90:6

modd_teb_garden_option_n
Definition: modd_teb_garden_optionn.F90:6

modd_teb_veg_n
Definition: modd_teb_vegn.F90:6

modd_diag_misc_teb_option_n::diag_misc_teb_options_t
Definition: modd_diag_misc_teb_optionn.F90:43

modd_diag_teb_garden_n
Definition: modd_diag_teb_gardenn.F90:6

modd_teb_garden_pgd_n::teb_garden_pgd_t
Definition: modd_teb_garden_pgdn.F90:43

modd_teb_garden_option_n::teb_garden_options_t
Definition: modd_teb_garden_optionn.F90:44

modd_surf_par
Definition: modd_surf_par.F90:6

modd_type_date_surf
Definition: modd_type_date_surf.F90:6

modd_diag_teb_garden_n::diag_teb_garden_t
Definition: modd_diag_teb_gardenn.F90:41

modd_teb_veg_n::teb_veg_options_t
Definition: modd_teb_vegn.F90:42

modd_teb_garden_n
Definition: modd_teb_gardenn.F90:6

modd_diag_misc_teb_option_n
Definition: modd_diag_misc_teb_optionn.F90:6