39 CHARACTER(LEN=28) :: CFILE_TEB
40 CHARACTER(LEN=6) :: CTYPE
41 CHARACTER(LEN=28) :: CFILEPGD_TEB
42 CHARACTER(LEN=6) :: CTYPEPGD
43 CHARACTER(LEN=28) :: CFILE_SNOW_TEB
44 CHARACTER(LEN=6) :: CTYPE_SNOW
45 CHARACTER(LEN=28) :: CFILEPGD_SNOW_TEB
46 CHARACTER(LEN=6) :: CTYPEPGD_SNOW
47 CHARACTER(LEN=28) :: CFILE_WS
48 CHARACTER(LEN=6) :: CTYPE_WS
49 CHARACTER(LEN=28) :: CFILE_TS
50 CHARACTER(LEN=6) :: CTYPE_TS
72 LOGICAL :: LSNOW_IDEAL_TEB
74 REAL,
DIMENSION(:),
POINTER :: XWSNOW_ROOF
75 REAL,
DIMENSION(:),
POINTER :: XTSNOW_ROOF
76 REAL,
DIMENSION(:),
POINTER :: XLWCSNOW_ROOF
77 REAL,
DIMENSION(:),
POINTER :: XRSNOW_ROOF
80 REAL,
DIMENSION(:),
POINTER :: XWSNOW_ROAD
81 REAL,
DIMENSION(:),
POINTER :: XTSNOW_ROAD
82 REAL,
DIMENSION(:),
POINTER :: XLWCSNOW_ROAD
83 REAL,
DIMENSION(:),
POINTER :: XRSNOW_ROAD
89 REAL,
DIMENSION(10) :: XGRID_ROOF = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2, 0.4, 0.7, 0.9, 1. /)
90 REAL,
DIMENSION(10) :: XGRID_WALL = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2, 0.4, 0.7, 0.9, 1. /)
91 REAL,
DIMENSION(10) :: XGRID_ROAD = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2, 0.4, 0.7, 0.9, 1. /)
92 REAL,
DIMENSION(10) :: XGRID_FLOOR = (/ 0., 0.01, 0.02, 0.05, 0.1, 0.2, 0.4, 0.7, 0.9, 1. /)