cover301_573.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 cover301_573
!     #######################
!
USE modd_data_cover,     ONLY : ldata_irrig, lread_data_cover
!
USE modi_read_covers_param
!
USE modi_default_lai_eco2_y2002_01
USE modi_default_lai_eco2_y2002_02
USE modi_default_lai_eco2_y2002_03
USE modi_default_lai_eco2_y2002_04
USE modi_default_lai_eco2_y2002_05
USE modi_default_lai_eco2_y2002_06
USE modi_default_lai_eco2_y2002_07
USE modi_default_lai_eco2_y2002_08
USE modi_default_lai_eco2_y2002_09
USE modi_default_lai_eco2_y2002_10
USE modi_default_lai_eco2_y2002_11
USE modi_default_lai_eco2_y2002_12
USE modi_default_lai_eco2_y2002_13
USE modi_default_lai_eco2_y2002_14
USE modi_default_lai_eco2_y2002_15
USE modi_default_lai_eco2_y2002_16
USE modi_default_lai_eco2_y2002_17
USE modi_default_lai_eco2_y2002_18
USE modi_default_lai_eco2_y2002_19
!
USE modi_default_lai_eco2_y2003_01
USE modi_default_lai_eco2_y2003_02
USE modi_default_lai_eco2_y2003_03
USE modi_default_lai_eco2_y2003_04
USE modi_default_lai_eco2_y2003_05
USE modi_default_lai_eco2_y2003_06
USE modi_default_lai_eco2_y2003_07
USE modi_default_lai_eco2_y2003_08
USE modi_default_lai_eco2_y2003_09
USE modi_default_lai_eco2_y2003_10
USE modi_default_lai_eco2_y2003_11
USE modi_default_lai_eco2_y2003_12
USE modi_default_lai_eco2_y2003_13
USE modi_default_lai_eco2_y2003_14
USE modi_default_lai_eco2_y2003_15
USE modi_default_lai_eco2_y2003_16
USE modi_default_lai_eco2_y2003_17
USE modi_default_lai_eco2_y2003_18
USE modi_default_lai_eco2_y2003_19
!
USE modi_default_lai_eco2_y2004_01
USE modi_default_lai_eco2_y2004_02
USE modi_default_lai_eco2_y2004_03
USE modi_default_lai_eco2_y2004_04
USE modi_default_lai_eco2_y2004_05
USE modi_default_lai_eco2_y2004_06
USE modi_default_lai_eco2_y2004_07
USE modi_default_lai_eco2_y2004_08
USE modi_default_lai_eco2_y2004_09
USE modi_default_lai_eco2_y2004_10
USE modi_default_lai_eco2_y2004_11
USE modi_default_lai_eco2_y2004_12
USE modi_default_lai_eco2_y2004_13
USE modi_default_lai_eco2_y2004_14
USE modi_default_lai_eco2_y2004_15
USE modi_default_lai_eco2_y2004_16
USE modi_default_lai_eco2_y2004_17
USE modi_default_lai_eco2_y2004_18
USE modi_default_lai_eco2_y2004_19
!
USE modi_default_lai_eco2_y2005_01
USE modi_default_lai_eco2_y2005_02
USE modi_default_lai_eco2_y2005_03
USE modi_default_lai_eco2_y2005_04
USE modi_default_lai_eco2_y2005_05
USE modi_default_lai_eco2_y2005_06
USE modi_default_lai_eco2_y2005_07
USE modi_default_lai_eco2_y2005_08
USE modi_default_lai_eco2_y2005_09
USE modi_default_lai_eco2_y2005_10
USE modi_default_lai_eco2_y2005_11
USE modi_default_lai_eco2_y2005_12
USE modi_default_lai_eco2_y2005_13
USE modi_default_lai_eco2_y2005_14
USE modi_default_lai_eco2_y2005_15
USE modi_default_lai_eco2_y2005_16
USE modi_default_lai_eco2_y2005_17
USE modi_default_lai_eco2_y2005_18
USE modi_default_lai_eco2_y2005_19
!
USE modi_default_lai_eco2_y2006_01
USE modi_default_lai_eco2_y2006_02
USE modi_default_lai_eco2_y2006_03
USE modi_default_lai_eco2_y2006_04
USE modi_default_lai_eco2_y2006_05
USE modi_default_lai_eco2_y2006_06
USE modi_default_lai_eco2_y2006_07
USE modi_default_lai_eco2_y2006_08
USE modi_default_lai_eco2_y2006_09
USE modi_default_lai_eco2_y2006_10
USE modi_default_lai_eco2_y2006_11
USE modi_default_lai_eco2_y2006_12
USE modi_default_lai_eco2_y2006_13
USE modi_default_lai_eco2_y2006_14
USE modi_default_lai_eco2_y2006_15
USE modi_default_lai_eco2_y2006_16
USE modi_default_lai_eco2_y2006_17
USE modi_default_lai_eco2_y2006_18
USE modi_default_lai_eco2_y2006_19
!
USE modi_default_alb_soil_eco2
USE modi_default_alb_soil_eco2
!
USE modi_default_alb_veg_eco2_01
USE modi_default_alb_veg_eco2_02
USE modi_default_alb_veg_eco2_03
USE modi_default_alb_veg_eco2_04
USE modi_default_alb_veg_eco2_05
USE modi_default_alb_veg_eco2_06
USE modi_default_alb_veg_eco2_07
USE modi_default_alb_veg_eco2_08
USE modi_default_alb_veg_eco2_09
USE modi_default_alb_veg_eco2_10
USE modi_default_alb_veg_eco2_11
USE modi_default_alb_veg_eco2_12
USE modi_default_alb_veg_eco2_13
USE modi_default_alb_veg_eco2_14
USE modi_default_alb_veg_eco2_15
USE modi_default_alb_veg_eco2_16
USE modi_default_alb_veg_eco2_17
USE modi_default_alb_veg_eco2_18
USE modi_default_alb_veg_eco2_19
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!* dummy arguments
!  ---------------
!
!
!* local variables
!  ---------------
!
REAL(KIND=JPRB) :: zhook_handle
!
!------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('COVER301_573',0,zhook_handle)
ldata_irrig = .false.
!
!-------------------------------------------------------------------------------
!
!*    3.     Land-use and vegetation data for each ecoclimap2 cover
!            ------------------------------------------------------
!
IF (lread_data_cover) THEN 
  CALL read_covers_param(2)
ELSE
  CALL default_lai_eco2_y2002_01
  CALL default_lai_eco2_y2002_02
  CALL default_lai_eco2_y2002_03
  CALL default_lai_eco2_y2002_04
  CALL default_lai_eco2_y2002_05
  CALL default_lai_eco2_y2002_06
  CALL default_lai_eco2_y2002_07
  CALL default_lai_eco2_y2002_08
  CALL default_lai_eco2_y2002_09
  CALL default_lai_eco2_y2002_10
  CALL default_lai_eco2_y2002_11
  CALL default_lai_eco2_y2002_12
  CALL default_lai_eco2_y2002_13
  CALL default_lai_eco2_y2002_14
  CALL default_lai_eco2_y2002_15
  CALL default_lai_eco2_y2002_16
  CALL default_lai_eco2_y2002_17
  CALL default_lai_eco2_y2002_18
  CALL default_lai_eco2_y2002_19
!
  CALL default_lai_eco2_y2003_01
  CALL default_lai_eco2_y2003_02
  CALL default_lai_eco2_y2003_03
  CALL default_lai_eco2_y2003_04
  CALL default_lai_eco2_y2003_05
  CALL default_lai_eco2_y2003_06
  CALL default_lai_eco2_y2003_07
  CALL default_lai_eco2_y2003_08
  CALL default_lai_eco2_y2003_09
  CALL default_lai_eco2_y2003_10
  CALL default_lai_eco2_y2003_11
  CALL default_lai_eco2_y2003_12
  CALL default_lai_eco2_y2003_13
  CALL default_lai_eco2_y2003_14
  CALL default_lai_eco2_y2003_15
  CALL default_lai_eco2_y2003_16
  CALL default_lai_eco2_y2003_17
  CALL default_lai_eco2_y2003_18
  CALL default_lai_eco2_y2003_19
!
  CALL default_lai_eco2_y2004_01
  CALL default_lai_eco2_y2004_02
  CALL default_lai_eco2_y2004_03
  CALL default_lai_eco2_y2004_04
  CALL default_lai_eco2_y2004_05
  CALL default_lai_eco2_y2004_06
  CALL default_lai_eco2_y2004_07
  CALL default_lai_eco2_y2004_08
  CALL default_lai_eco2_y2004_09
  CALL default_lai_eco2_y2004_10
  CALL default_lai_eco2_y2004_11
  CALL default_lai_eco2_y2004_12
  CALL default_lai_eco2_y2004_13
  CALL default_lai_eco2_y2004_14
  CALL default_lai_eco2_y2004_15
  CALL default_lai_eco2_y2004_16
  CALL default_lai_eco2_y2004_17
  CALL default_lai_eco2_y2004_18
  CALL default_lai_eco2_y2004_19
!
  CALL default_lai_eco2_y2005_01
  CALL default_lai_eco2_y2005_02
  CALL default_lai_eco2_y2005_03
  CALL default_lai_eco2_y2005_04
  CALL default_lai_eco2_y2005_05
  CALL default_lai_eco2_y2005_06
  CALL default_lai_eco2_y2005_07
  CALL default_lai_eco2_y2005_08
  CALL default_lai_eco2_y2005_09
  CALL default_lai_eco2_y2005_10
  CALL default_lai_eco2_y2005_11
  CALL default_lai_eco2_y2005_12
  CALL default_lai_eco2_y2005_13
  CALL default_lai_eco2_y2005_14
  CALL default_lai_eco2_y2005_15
  CALL default_lai_eco2_y2005_16
  CALL default_lai_eco2_y2005_17
  CALL default_lai_eco2_y2005_18
  CALL default_lai_eco2_y2005_19
!
  CALL default_lai_eco2_y2006_01
  CALL default_lai_eco2_y2006_02
  CALL default_lai_eco2_y2006_03
  CALL default_lai_eco2_y2006_04
  CALL default_lai_eco2_y2006_05
  CALL default_lai_eco2_y2006_06
  CALL default_lai_eco2_y2006_07
  CALL default_lai_eco2_y2006_08
  CALL default_lai_eco2_y2006_09
  CALL default_lai_eco2_y2006_10
  CALL default_lai_eco2_y2006_11
  CALL default_lai_eco2_y2006_12
  CALL default_lai_eco2_y2006_13
  CALL default_lai_eco2_y2006_14
  CALL default_lai_eco2_y2006_15
  CALL default_lai_eco2_y2006_16
  CALL default_lai_eco2_y2006_17
  CALL default_lai_eco2_y2006_18
  CALL default_lai_eco2_y2006_19
!
  CALL default_alb_soil_eco2
!
  CALL default_alb_veg_eco2_01
  CALL default_alb_veg_eco2_02
  CALL default_alb_veg_eco2_03
  CALL default_alb_veg_eco2_04
  CALL default_alb_veg_eco2_05
  CALL default_alb_veg_eco2_06
  CALL default_alb_veg_eco2_07
  CALL default_alb_veg_eco2_08
  CALL default_alb_veg_eco2_09
  CALL default_alb_veg_eco2_10
  CALL default_alb_veg_eco2_11
  CALL default_alb_veg_eco2_12
  CALL default_alb_veg_eco2_13
  CALL default_alb_veg_eco2_14
  CALL default_alb_veg_eco2_15
  CALL default_alb_veg_eco2_16
  CALL default_alb_veg_eco2_17
  CALL default_alb_veg_eco2_18
  CALL default_alb_veg_eco2_19
!
ENDIF
!
IF (lhook) CALL dr_hook('COVER301_573',1,zhook_handle)
!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
!------------------------------------------------------------------------------
!
END SUBROUTINE cover301_573