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