Module vom_file_mod
1 : ! ******************************************************************
2 : ! * File definitions for VOM
3 : ! ******************************************************************
4 :
5 : module vom_file_mod
6 :
7 : ! * file codes
8 :
9 : INTEGER :: kfile_dailyweather = 101
10 : INTEGER :: kfile_hourlyweather = 102
11 :
12 : INTEGER :: kfile_namelist = 401
13 : INTEGER :: kfile_outputlist = 402
14 :
15 : INTEGER :: kfile_resultshourly = 201
16 : INTEGER :: kfile_resultsdaily = 202
17 : INTEGER :: kfile_resultsyearly = 203
18 : INTEGER :: kfile_rsurfdaily = 204
19 : INTEGER :: kfile_delzhourly = 205
20 : INTEGER :: kfile_ruptkthourly = 206
21 : INTEGER :: kfile_suhourly = 207
22 : INTEGER :: kfile_soilprofile = 208
23 : INTEGER :: kfile_model_output = 209
24 :
25 : INTEGER :: kfile_random_output = 210
26 :
27 : INTEGER :: kfile_vd_d = 311
28 : INTEGER :: kfile_esoil = 312
29 : INTEGER :: kfile_jmax25t = 313
30 : INTEGER :: kfile_jmax25g = 314
31 : INTEGER :: kfile_vegcov = 315
32 : INTEGER :: kfile_resp = 316
33 : INTEGER :: kfile_lambdat = 317
34 : INTEGER :: kfile_lambdag = 318
35 : INTEGER :: kfile_rrt = 319
36 : INTEGER :: kfile_rrg = 320
37 : INTEGER :: kfile_asst = 321
38 : INTEGER :: kfile_assg = 322
39 : INTEGER :: kfile_su_av = 323
40 : INTEGER :: kfile_zw = 324
41 : INTEGER :: kfile_wsnew = 325
42 : INTEGER :: kfile_spgfcf = 326
43 : INTEGER :: kfile_infx = 327
44 : INTEGER :: kfile_etmt = 328
45 : INTEGER :: kfile_etmg = 329
46 : INTEGER :: kfile_su1 = 330
47 : INTEGER :: kfile_topt = 331
48 : INTEGER :: kfile_random_params = 332
49 : INTEGER :: kfile_perc_cov = 333
50 :
51 :
52 :
53 : INTEGER :: kfile_sceout = 701
54 : INTEGER :: kfile_progress = 702
55 : INTEGER :: kfile_lastloop = 703
56 : INTEGER :: kfile_lastbest = 704
57 : INTEGER :: kfile_bestpars = 705
58 : INTEGER :: kfile_beststat = 706
59 : INTEGER :: kfile_pars = 707
60 :
61 : ! * file names
62 :
63 : CHARACTER(len=*),parameter :: sfile_dailyweather = 'dailyweather.prn'
64 : CHARACTER(len=*),parameter :: sfile_hourlyweather = 'hourlyweather.prn'
65 :
66 : CHARACTER*100 :: sfile_namelist = 'vom_namelist'
67 : CHARACTER(len=*),parameter :: sfile_outputlist = 'output_namelist'
68 : CHARACTER(len=*),parameter :: sfile_resultshourly = 'results_hourly.txt'
69 : CHARACTER(len=*),parameter :: sfile_resultsdaily = 'results_daily.txt'
70 : CHARACTER(len=*),parameter :: sfile_resultsyearly = 'results_yearly.txt'
71 : CHARACTER(len=*),parameter :: sfile_rsurfdaily = 'rsurf_daily.txt'
72 : CHARACTER(len=*),parameter :: sfile_delzhourly = 'delz_hourly.txt'
73 : CHARACTER(len=*),parameter :: sfile_ruptkthourly = 'ruptkt_hourly.txt'
74 : CHARACTER(len=*),parameter :: sfile_suhourly = 'su_hourly.txt'
75 : CHARACTER(len=*),parameter :: sfile_soilprofile = 'soilprofile.par'
76 : CHARACTER(len=*),parameter :: sfile_model_output = 'model_output.txt'
77 :
78 : CHARACTER(len=*),parameter :: sfile_random_output = 'random_ncp.txt'
79 : CHARACTER(len=*),parameter :: sfile_random_params = 'random_params.txt'
80 :
81 : CHARACTER(len=*),parameter :: sfile_vd_d = 'vpd.txt'
82 : CHARACTER(len=*),parameter :: sfile_esoil = 'esoil.txt'
83 : CHARACTER(len=*),parameter :: sfile_jmax25t = 'jmax25t.txt'
84 : CHARACTER(len=*),parameter :: sfile_jmax25g = 'jmax25g.txt'
85 : CHARACTER(len=*),parameter :: sfile_vegcov = 'veg_cover.txt'
86 : CHARACTER(len=*),parameter :: sfile_resp = 'leaf_resp.txt'
87 : CHARACTER(len=*),parameter :: sfile_lambdat = 'lambdat.txt'
88 : CHARACTER(len=*),parameter :: sfile_lambdag = 'lambdag.txt'
89 : CHARACTER(len=*),parameter :: sfile_rrt = 'root_resp_t.txt'
90 : CHARACTER(len=*),parameter :: sfile_rrg = 'root_resp_g.txt'
91 : CHARACTER(len=*),parameter :: sfile_asst = 'asst.txt'
92 : CHARACTER(len=*),parameter :: sfile_assg = 'assg.txt'
93 : CHARACTER(len=*),parameter :: sfile_su_av = 'su_av.txt'
94 : CHARACTER(len=*),parameter :: sfile_zw = 'wat_table.txt'
95 : CHARACTER(len=*),parameter :: sfile_wsnew = 'soil_wat_storage.txt'
96 : CHARACTER(len=*),parameter :: sfile_spgfcf = 'seepage.txt'
97 : CHARACTER(len=*),parameter :: sfile_infx = 'infilt.txt'
98 : CHARACTER(len=*),parameter :: sfile_etmt = 'etmt.txt'
99 : CHARACTER(len=*),parameter :: sfile_etmg = 'etmg.txt'
100 : CHARACTER(len=*),parameter :: sfile_su1 = 'su1.txt'
101 : CHARACTER(len=*),parameter :: sfile_topt = 'temp_opt.txt'
102 : CHARACTER(len=*),parameter :: sfile_perc_cov = 'perc_cov.txt'
103 :
104 : CHARACTER(len=*),parameter :: sfile_sceout = 'sce_out.txt'
105 : CHARACTER(len=*),parameter :: sfile_progress = 'sce_progress.txt'
106 : CHARACTER(len=*),parameter :: sfile_lastloop = 'sce_lastloop.txt'
107 : CHARACTER(len=*),parameter :: sfile_lastbest = 'sce_lastbest.txt'
108 : CHARACTER(len=*),parameter :: sfile_bestpars = 'sce_bestpars.txt'
109 : CHARACTER(len=*),parameter :: sfile_beststat = 'sce_status.txt'
110 : CHARACTER(len=*),parameter :: sfile_pars = 'pars.txt'
111 :
112 : CHARACTER*100 :: i_outputpath ! Constant root balance pressure of 1.5 MPa in grasses
113 : CHARACTER*100 :: i_inputpath ! Constant root balance pressure of 1.5 MPa in grasses
114 :
115 : end module vom_file_mod