init_from_data_greenroofn.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.
!     #########
      SUBROUTINE init_from_data_greenroof_n (DTGR, TGRO, &
                                             kdecade, hphoto,                              &
                                            pom_gr, psand_gr, pclay_gr, pveg,             &
                                            plai,prsmin,pgamma,pwrmax_cf,                 &
                                            prgl,pcv,pdg,pd_ice,pz0,pz0_o_z0h,            &
                                            palbnir_veg,palbvis_veg,palbuv_veg,           &
                                            pemis,                                        &
                                            pvegtype,prootfrac,                           &
                                            pgmes,pbslai,plaimin,psefold,pgc,             &
                                            pdmax, pf2i, ostress,                         &
                                            ph_tree, pre25,                               &
                                            pce_nitro, pcf_nitro, pcna_nitro,             &
                                            palbnir_soil,palbvis_soil,palbuv_soil         )  
!     ##############################################################
!
!!**** *CONVERT_COVER* convert surface cover classes into secondary 
!!                     physiographic variables for ISBA
!!
!!    PURPOSE
!!    -------
!!
!!    METHOD
!!    ------
!!   
!!    EXTERNAL
!!    --------
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!    Based on init_from_data_grdnn
!!    
!!    AUTHOR
!!    ------
!!
!!    C. de Munck & A. Lemonsu        Meteo-France
!!
!!    MODIFICATION
!!    ------------
!!
!!    Original   08/2011
!----------------------------------------------------------------------------
!
!*    0.     DECLARATION
!            -----------
!

!
!
!
USE modd_data_teb_greenroof_n, ONLY : data_teb_greenroof_t
USE modd_teb_greenroof_option_n, ONLY : teb_greenroof_options_t
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*    0.1    Declaration of arguments
!            ------------------------
!
!
TYPE(data_teb_greenroof_t), INTENT(INOUT) :: dtgr
TYPE(teb_greenroof_options_t), INTENT(INOUT) :: tgro
!
INTEGER,                INTENT(IN)    :: kdecade
 CHARACTER(LEN=*),       INTENT(IN)    :: hphoto  ! type of photosynthesis
!
REAL, DIMENSION(:,:),   OPTIONAL, INTENT(OUT)   :: psand_gr
REAL, DIMENSION(:,:),   OPTIONAL, INTENT(OUT)   :: pclay_gr
REAL, DIMENSION(:,:),   OPTIONAL, INTENT(OUT)   :: pom_gr
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pveg
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: plai
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: prsmin
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pgamma
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pwrmax_cf
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: prgl
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pcv
REAL, DIMENSION(:,:),   OPTIONAL, INTENT(OUT)   :: pdg
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pd_ice
REAL, DIMENSION(:,:),   OPTIONAL, INTENT(OUT)   :: prootfrac
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pz0
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pz0_o_z0h
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: palbnir_veg
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: palbvis_veg
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: palbuv_veg
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pemis
!
REAL, DIMENSION(:,:),   OPTIONAL, INTENT(OUT)   :: pvegtype
!
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pgmes
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pre25
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pbslai
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: plaimin
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: psefold
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pgc
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pdmax
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pf2i
LOGICAL, DIMENSION(:),  OPTIONAL, INTENT(OUT)   :: ostress
!
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: ph_tree
!
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pce_nitro
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pcf_nitro
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: pcna_nitro
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: palbnir_soil
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: palbvis_soil
REAL, DIMENSION(:),     OPTIONAL, INTENT(OUT)   :: palbuv_soil
!
!*    0.2    Declaration of local variables
!            ------------------------------
!
INTEGER :: itime
INTEGER :: iluout
REAL(KIND=JPRB) :: zhook_handle
!
!-------------------------------------------------------------------------------
!
!*    1.      TIME INITIALIZATION
!             -------------------
!
! data every month
IF (lhook) CALL dr_hook('INIT_FROM_DATA_GREENROOF_N',0,zhook_handle)
IF (tgro%NTIME_GR==12) THEN
  itime = (kdecade+2)/3      
ELSE
  itime = 1
END IF
!
!*    2.      SECONDARY VARIABLES
!             -------------------
!
!*    2.0     fields for greenroofs
!             ---------------------
!
IF (present(pom_gr))   pom_gr(:,:)   = dtgr%XPAR_OM_GR(:,:)
!
IF (present(psand_gr)) psand_gr(:,:) = dtgr%XPAR_SAND_GR(:,:)
!
IF (present(pclay_gr)) pclay_gr(:,:) = dtgr%XPAR_CLAY_GR(:,:)
!
!
!*    2.1     fields on natural surfaces only, taking into account patches/ 
!             -------------------------------
!
IF (present(pvegtype)) pvegtype = dtgr%XPAR_VEGTYPE
!
! vegetation fraction
! -------------------
!
IF (present(pveg)) pveg(:) =  dtgr%XPAR_VEG (:,itime)
!
! Leaf Area Index
! ---------------
!
IF (present(plai)) plai(:) = dtgr%XPAR_LAI (:,itime)
!
! roughness length
! ----------------
!
IF (present(pz0)) pz0(:) =  dtgr%XPAR_Z0 (:,itime)
!
IF (present(pz0_o_z0h)) pz0_o_z0h = dtgr%XPAR_Z0_O_Z0H
!
!
!emis-eco
!--------
!
IF (present(pemis)) pemis(:) =  dtgr%XPAR_EMIS (:,itime)
! 
!---------------------------------------------------------------------------------
! 
!* 1/Rsmin
!
IF (present(prsmin)) THEN
  IF (SIZE(prsmin)>0) prsmin = dtgr%XPAR_RSMIN
END IF
!
!* other vegetation parameters
!
IF (present(pgamma)) pgamma = dtgr%XPAR_GAMMA
IF (present(pwrmax_cf)) pwrmax_cf = dtgr%XPAR_WRMAX_CF
!
!
IF (present(prgl)) prgl = dtgr%XPAR_RGL
IF (present(pcv)) pcv = dtgr%XPAR_CV
!
!---------------------------------------------------------------------------------
!
!* soil layers
!  -----------
!
IF (present(pdg)) pdg = dtgr%XPAR_DG
!
!* cumulative root fraction
!
IF (present(prootfrac)) prootfrac = dtgr%XPAR_ROOTFRAC
!
!* soil ice for runoff
!
IF (present(pd_ice)) pd_ice = dtgr%XPAR_DICE
!
!---------------------------------------------------------------------------------
IF (present(palbnir_veg))   palbnir_veg = dtgr%XPAR_ALBNIR_VEG
IF (present(palbvis_veg))   palbvis_veg = dtgr%XPAR_ALBVIS_VEG
IF (present(palbuv_veg))    palbuv_veg  = dtgr%XPAR_ALBUV_VEG

IF (present(palbnir_soil))  palbnir_soil(:) = dtgr%XPAR_ALBNIR_SOIL
IF (present(palbvis_soil))  palbvis_soil(:) = dtgr%XPAR_ALBVIS_SOIL
IF (present(palbuv_soil))   palbuv_soil(:) = dtgr%XPAR_ALBUV_SOIL

IF (present(pgmes)) THEN
  IF (SIZE(pgmes)>0) pgmes = dtgr%XPAR_GMES
END IF

IF (present(pbslai)) THEN
  IF (SIZE(pbslai)>0) pbslai = dtgr%XPAR_BSLAI
END IF

IF (present(psefold)) THEN
  IF (SIZE(psefold)>0) psefold = dtgr%XPAR_SEFOLD
END IF

IF (present(pgc)) THEN
  IF (SIZE(pgc)>0) pgc = dtgr%XPAR_GC
END IF

IF (present(pdmax)) THEN
  IF (SIZE(pdmax)>0) pdmax = dtgr%XPAR_DMAX
END IF

IF (present(pre25)) THEN
  IF (SIZE(pre25)>0) pre25 = dtgr%XPAR_RE25
END IF

IF (present(plaimin)) THEN
  IF (SIZE(plaimin)>0) plaimin = dtgr%XPAR_LAIMIN
END IF

IF (present(pce_nitro)) THEN
  IF (SIZE(pce_nitro)>0) pce_nitro = dtgr%XPAR_CE_NITRO
END IF

IF (present(pcf_nitro)) THEN
  IF (SIZE(pcf_nitro)>0) pcf_nitro = dtgr%XPAR_CF_NITRO
END IF

IF (present(pcna_nitro)) THEN
  IF (SIZE(pcna_nitro)>0) pcna_nitro = dtgr%XPAR_CNA_NITRO
END IF

IF (present(pf2i)) THEN
  IF (SIZE(pf2i)>0) pf2i = dtgr%XPAR_F2I
END IF
!
IF (present(ostress)) THEN
  IF (SIZE(ostress)>0) ostress = dtgr%LDATA_STRESS
END IF
IF (lhook) CALL dr_hook('INIT_FROM_DATA_GREENROOF_N',1,zhook_handle)
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE init_from_data_greenroof_n