|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE DEFAULT_TEB_VEG(HROUGH,HRUNOFF,HALBEDO,HSCOND, & 00003 HC1DRY, HSOILFRZ, HDIFSFCOND, HSNOWRES, & 00004 HCPSURF, PCGMAX, HKSAT, & 00005 HTOPREG, HRAIN, HHORT, OFLOOD, OTRIP, & 00006 OGLACIER, OCANOPY_DRAG, OVEGUPD ) 00007 ! ######################################################################## 00008 ! 00009 !!**** *DEFAULT_TEB_VEG* - routine to set default values for the configuration for TEB scheme 00010 !! 00011 !! PURPOSE 00012 !! ------- 00013 !! 00014 !!** METHOD 00015 !! ------ 00016 !! 00017 !! EXTERNAL 00018 !! -------- 00019 !! 00020 !! 00021 !! IMPLICIT ARGUMENTS 00022 !! ------------------ 00023 !! 00024 !! REFERENCE 00025 !! --------- 00026 !! 00027 !! 00028 !! AUTHOR 00029 !! ------ 00030 !! V. Masson *Meteo France* 00031 !! 00032 !! MODIFICATIONS 00033 !! ------------- 00034 !! Original 01/2004 00035 !! C. de Munck & A. Lemonsu 07/2011 ! urban vegetation options 00036 !------------------------------------------------------------------------------- 00037 ! 00038 !* 0. DECLARATIONS 00039 ! ------------ 00040 ! 00041 ! 00042 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00043 USE PARKIND1 ,ONLY : JPRB 00044 ! 00045 IMPLICIT NONE 00046 ! 00047 !* 0.1 Declarations of arguments 00048 ! ------------------------- 00049 ! 00050 ! 00051 CHARACTER(LEN=4), INTENT(OUT) :: HROUGH ! type of roughness length 00052 CHARACTER(LEN=4), INTENT(OUT) :: HALBEDO ! albedo type ('DRY','EVOL4,'WET','USER') 00053 CHARACTER(LEN=4), INTENT(OUT) :: HSCOND ! Thermal conductivity ('DEF','PL98') 00054 CHARACTER(LEN=4), INTENT(OUT) :: HC1DRY ! C1 formulation for dry soils ('DEF','GB93') 00055 CHARACTER(LEN=3), INTENT(OUT) :: HSOILFRZ ! soil freezing-physics option ('DEF','LWT') 00056 CHARACTER(LEN=4), INTENT(OUT) :: HDIFSFCOND ! Mulch effects ('MLCH','DEF ') 00057 CHARACTER(LEN=3), INTENT(OUT) :: HSNOWRES ! Turbulent exchanges over snow ('DEF','RIL') 00058 CHARACTER(LEN=3), INTENT(OUT) :: HCPSURF ! specific heat ('DRY','HUM') 00059 CHARACTER(LEN=4), INTENT(OUT) :: HRUNOFF ! surface runoff formulation ('WSAT','DT92','SGH ') 00060 CHARACTER(LEN=3), INTENT(OUT) :: HTOPREG ! linear regression for Topmodel ('DEF','NON') 00061 CHARACTER(LEN=3), INTENT(OUT) :: HKSAT ! soil hydraulic profile option ('DEF','SGH') 00062 CHARACTER(LEN=3), INTENT(OUT) :: HRAIN ! Rainfall spatial distribution ('DEF','SGH') 00063 CHARACTER(LEN=3), INTENT(OUT) :: HHORT ! Horton runoff ('DEF','SGH') 00064 00065 LOGICAL, INTENT(OUT) :: OTRIP ! T= ISBA-TRIP coupling, F= No ISBA-TRIP coupling 00066 LOGICAL, INTENT(OUT) :: OFLOOD ! T= Flooding scheme, F= No flooding scheme 00067 LOGICAL, INTENT(OUT) :: OGLACIER ! T= Over permanent snow and ice, initialise WGI=WSAT, 00068 ! Hsnow>=3.3m and allow 0.8<SNOALB<0.85 00069 ! ! F= No specific treatment 00070 LOGICAL, INTENT(OUT) :: OCANOPY_DRAG ! T: drag activated in SBL scheme within the canopy 00071 LOGICAL, INTENT(OUT) :: OVEGUPD ! T: update vegetation parameters every decade 00072 ! ! F: keep vegetation parameters constant in time 00073 REAL, INTENT(OUT) :: PCGMAX ! maximum soil heat capacity 00074 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00075 ! 00076 !* 0.2 Declarations of local variables 00077 ! ------------------------------- 00078 ! 00079 !------------------------------------------------------------------------------- 00080 ! 00081 IF (LHOOK) CALL DR_HOOK('DEFAULT_TEB_VEG',0,ZHOOK_HANDLE) 00082 ! 00083 HROUGH = 'UNDE' ! undefined. Needs further information on canopy scheme use to set default 00084 HSCOND = 'PL98' 00085 HALBEDO = 'DRY ' 00086 ! 00087 HC1DRY = 'DEF ' 00088 HSOILFRZ = 'DEF' 00089 HDIFSFCOND = 'DEF ' 00090 HSNOWRES = 'DEF' 00091 HCPSURF = 'DRY' 00092 ! 00093 HRUNOFF = "WSAT" 00094 HTOPREG = 'DEF' 00095 HKSAT = 'DEF' 00096 HRAIN = 'DEF' 00097 HHORT = 'DEF' 00098 ! 00099 PCGMAX = 2.0E-5 00100 ! 00101 OCANOPY_DRAG = .FALSE. 00102 ! 00103 OVEGUPD = .TRUE. 00104 ! 00105 IF (LHOOK) CALL DR_HOOK('DEFAULT_TEB_VEG',1,ZHOOK_HANDLE) 00106 ! 00107 !------------------------------------------------------------------------------- 00108 ! 00109 END SUBROUTINE DEFAULT_TEB_VEG
1.8.0
