|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE DEFAULT_CROCUS(OSNOWDRIFT,OSNOWDRIFT_SUBLIM,PZ0ICEZ0SNOW,PRHOTHRESHOLD_ICE,& 00003 PALBICE1,PALBICE2,PALBICE3,PVAGING_NOGLACIER,PVAGING_GLACIER) 00004 ! ######################################################################## 00005 ! 00006 !!**** *DEFAULT_ISBA* - routine to set default values for the configuration for Crocus 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 !! 00011 !!** METHOD 00012 !! ------ 00013 !! 00014 !! EXTERNAL 00015 !! -------- 00016 !! 00017 !! 00018 !! IMPLICIT ARGUMENTS 00019 !! ------------------ 00020 !! 00021 !! REFERENCE 00022 !! --------- 00023 !! 00024 !! 00025 !! AUTHOR 00026 !! ------ 00027 !! M. Lafaysse *Meteo France* 00028 !! 00029 !! MODIFICATIONS 00030 !! ------------- 00031 !! Original 07/2012 00032 !------------------------------------------------------------------------------- 00033 ! 00034 !* 0. DECLARATIONS 00035 ! ------------ 00036 ! 00037 USE MODD_SURF_PAR, ONLY : XUNDEF 00038 ! 00039 ! 00040 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00041 USE PARKIND1 ,ONLY : JPRB 00042 ! 00043 IMPLICIT NONE 00044 ! 00045 !* 0.1 Declarations of arguments 00046 ! ------------------------- 00047 ! 00048 ! Logicals to activate / disactivate snowdrift 00049 LOGICAL, INTENT(OUT) :: OSNOWDRIFT 00050 LOGICAL, INTENT(OUT) :: OSNOWDRIFT_SUBLIM 00051 00052 ! Prescribed ice albedo in 3 spectral bands for glacier simulation with CROCUS scheme. 00053 REAL, INTENT(OUT) :: PALBICE1,PALBICE2,PALBICE3 00054 ! 00055 00056 ! Density threshold for ice detection in CROCUS scheme. 00057 REAL, INTENT(OUT) :: PRHOTHRESHOLD_ICE 00058 00059 ! Roughness length ratio between ice and snow 00060 REAL, INTENT(OUT) :: PZ0ICEZ0SNOW 00061 00062 ! Parameters for ageing effect on albedo 00063 REAL, INTENT(OUT) :: PVAGING_NOGLACIER,PVAGING_GLACIER 00064 ! 00065 !* 0.2 Declarations of local variables 00066 ! ------------------------------- 00067 ! 00068 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00069 !------------------------------------------------------------------------------- 00070 ! 00071 IF (LHOOK) CALL DR_HOOK('DEFAULT_CROCUS',0,ZHOOK_HANDLE) 00072 00073 OSNOWDRIFT=.TRUE. 00074 OSNOWDRIFT_SUBLIM=.FALSE. 00075 00076 ! Roughness length ratio between ice and snow 00077 PZ0ICEZ0SNOW=10. 00078 00079 ! 3 bands spectral albedo for glacier ice (CROCUS) 00080 ! Default values from Lejeune et al 2009 (Zongo, Bolivia) 00081 PALBICE1=0.38 00082 PALBICE2=0.23 00083 PALBICE3=0.08 00084 00085 ! Gerbaux et al 2005 (Saint Sorlin) 00086 ! PALBICE1=0.23 00087 ! PALBICE2=0.16 00088 ! PALBICE3=0.05 00089 ! 00090 ! Density threshold for ice detection kg.m-3 00091 PRHOTHRESHOLD_ICE=850. 00092 00093 ! Parameters for ageing effect on albedo 00094 PVAGING_NOGLACIER=60. 00095 PVAGING_GLACIER=900. 00096 00097 00098 IF (LHOOK) CALL DR_HOOK('DEFAULT_CROCUS',1,ZHOOK_HANDLE) 00099 ! 00100 !------------------------------------------------------------------------------- 00101 ! 00102 END SUBROUTINE DEFAULT_CROCUS
1.8.0
