Module vegwatmod


VARIABLES

pc_real*8 public
Projected cover perennial vegetation (0-1)
11
pcg_real*8(3)public
Projected cover seasonal vegetation (pcg_(2) is actual value)  
12
rain_real*8 public
Rainfall rate (m/s)
13
par_real*8 public
Photosynthetically active radiation (mol/m2/s)
14
dt_real*8 public
Length of time step (s)
15
dtmaxreal*8 public
Maximum time step (s)
16
etm__real*8 public
Transpiration rate (m/s)
17
latreal*8 public
geogr. latitude 
18
nlayers_integer public
Number of soil layers in unsaturated zone
20
d___integer public
Day of year
21
dtsu_countinteger public
For speed analysis, count of how often dtsu or dtmax is time limiting
22
dtmax_countinteger public
For speed analysis, count of how often dtsu or dtmax is time limiting
22
h__integer public
Hour of day
23
M___integer public
Number of soil layers
24
ruptkvecreal*8(:)public
Root water uptake rate perennial veg (m/s)
26
ruptkgreal*8(:)public
Root water uptake rate seasonal veg (m/s)
27
pcapvecreal*8(:)public
Soil matric head (m)
28
kfile_dailyweatherinteger public
?  
32
kfile_hourlyweatherinteger public
?  
33
kfile_inputparinteger public
?  
34
kfile_resultshourlyinteger public
?  
35
kfile_resultsdailyinteger public
?  
36
kfile_yearlyinteger public
?  
37
kfile_rsurfdailyinteger public
?  
38
kfile_delyuhourlyinteger public
?  
39
kfile_ruptkhourlyinteger public
?  
40
kfile_suvechourlyinteger public
?  
41
kfile_soilprofileinteger public
?  
42
kfile_model_outputinteger public
?  
43
sfile_dailyweathercharacter(len=80) public
?  
48
sfile_hourlyweathercharacter(len=80) public
?  
49
sfile_inputparcharacter(len=80) public
?  
50
sfile_resultshourlycharacter(len=80) public
?  
51
sfile_resultsdailycharacter(len=80) public
?  
52
sfile_yearlycharacter(len=80) public
?  
53
sfile_rsurfdailycharacter(len=80) public
?  
54
sfile_delyuhourlycharacter(len=80) public
?  
55
sfile_ruptkhourlycharacter(len=80) public
?  
56
sfile_suvechourlycharacter(len=80) public
?  
57
sfile_soilprofilecharacter(len=80) public
?  
58
sfile_model_outputcharacter(len=80) public
?  
59