|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ################ 00002 MODULE MODD_PREP_TEB 00003 ! ################ 00004 ! 00005 !!**** *MODD_PREP - declaration for field interpolations 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! Declaration of surface parameters 00010 ! 00011 !! 00012 !!** IMPLICIT ARGUMENTS 00013 !! ------------------ 00014 !! None 00015 !! 00016 !! REFERENCE 00017 !! --------- 00018 !! 00019 !! AUTHOR 00020 !! ------ 00021 !! V. Masson *Meteo France* 00022 !! 00023 !! MODIFICATIONS 00024 !! ------------- 00025 !! Original 01/2004 00026 ! 00027 !* 0. DECLARATIONS 00028 ! ------------ 00029 ! 00030 IMPLICIT NONE 00031 ! 00032 SAVE 00033 !-------------------------------------------------------------------------- 00034 ! 00035 CHARACTER(LEN=28) :: CFILE_TEB ! input file name 00036 CHARACTER(LEN=6) :: CTYPE ! input file type 00037 CHARACTER(LEN=28) :: CFILEPGD_TEB ! input file name 00038 CHARACTER(LEN=6) :: CTYPEPGD ! input file type 00039 CHARACTER(LEN=28) :: CFILE_SNOW ! input file name for Snow 00040 CHARACTER(LEN=6) :: CTYPE_SNOW ! input file type for Snow 00041 CHARACTER(LEN=28) :: CFILE_WS ! input file name for Ws 00042 CHARACTER(LEN=6) :: CTYPE_WS ! input file type for Ws 00043 CHARACTER(LEN=28) :: CFILE_TS ! input file name for Ts 00044 CHARACTER(LEN=6) :: CTYPE_TS ! input file type for Ts 00045 ! 00046 REAL :: XWS_ROOF ! roof uniform water content (kg/m2) 00047 REAL :: XWS_ROAD ! road uniform water content (kg/m2) 00048 REAL :: XTS_ROOF ! roof uniform temperature (K) 00049 REAL :: XTS_ROAD ! road uniform temperature (K) 00050 REAL :: XTS_WALL ! wall uniform temperature (K) 00051 REAL :: XTI_BLD ! uniform building interior T(K) 00052 REAL :: XTI_ROAD ! uniform deep road Temp. (K) 00053 REAL :: XHUI_BLD ! uniform building relative hum (between 0-1) 00054 ! 00055 REAL :: XT_CAN ! uniform canyon air Temp. (K) 00056 REAL :: XQ_CAN ! uniform canyon air Humidity(kg/kg) 00057 00058 ! 00059 REAL :: XWS_ROOF_DEF ! default roof uniform water content (kg/m2) 00060 REAL :: XWS_ROAD_DEF ! default road uniform water content (kg/m2) 00061 REAL :: XTI_BLD_DEF ! default uniform building interior T(K) 00062 REAL :: XHUI_BLD_DEF ! default uniform building interior relative humidity (between 0-1) 00063 ! 00064 ! Snow variables 00065 ! 00066 LOGICAL :: LSNOW_IDEAL 00067 ! 00068 REAL, DIMENSION(:), POINTER :: XWSNOW_ROOF ! snow reservoir for roofs 00069 REAL, DIMENSION(:), POINTER :: XTSNOW_ROOF ! snow density for roofs 00070 REAL, DIMENSION(:), POINTER :: XRSNOW_ROOF ! snow temperature for roofs 00071 REAL :: XASNOW_ROOF ! snow albedo for roofs 00072 ! 00073 REAL, DIMENSION(:), POINTER :: XWSNOW_ROAD ! snow reservoir for roads 00074 REAL, DIMENSION(:), POINTER :: XTSNOW_ROAD ! snow temperature for roads 00075 REAL, DIMENSION(:), POINTER :: XRSNOW_ROAD ! snow density for roads 00076 REAL :: XASNOW_ROAD ! snow albedo for roads 00077 ! 00078 !-------------------------------------------------------------------------- 00079 ! 00080 !* normalized dimensions for interpolation grids for roof, wall, and roads 00081 REAL, DIMENSION(10) :: XGRID_ROOF = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2, 0.4, 0.7, 0.9, 1. /) 00082 REAL, DIMENSION(10) :: XGRID_WALL = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2, 0.4, 0.7, 0.9, 1. /) 00083 REAL, DIMENSION(10) :: XGRID_ROAD = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2, 0.4, 0.7, 0.9, 1. /) 00084 REAL, DIMENSION(10) :: XGRID_FLOOR = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2, 0.4, 0.7, 0.9, 1. /) 00085 ! 00086 !-------------------------------------------------------------------------- 00087 ! 00088 END MODULE MODD_PREP_TEB
1.8.0
