Changeset 189 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Aug 13, 2008 5:09:26 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r163 r189 5 5 ! Actual revisions: 6 6 ! ----------------- 7 ! allow 100 spectra levels instead of 10 for consistency with 8 ! define_netcdf_header 7 9 ! +canopy_heat_flux, cthf, lai, 8 10 ! +leaf_surface_concentration, scalar_exchange_coefficient, sec, sls … … 1115 1117 INTEGER :: klist_x = 0, klist_y = 0, n_sp_x = 0, n_sp_y = 0 1116 1118 1117 INTEGER :: comp_spectra_level(10) = 999999, & 1118 lstyles(10) = (/ 0, 7, 3, 10, 1, 4, 9, 2, 6, 8 /), & 1119 plot_spectra_level(10) = 999999 1119 INTEGER :: comp_spectra_level(100) = 999999, & 1120 lstyles(100) = (/ 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1121 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1122 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1123 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1124 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1125 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1126 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1127 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1128 0, 7, 3, 10, 1, 4, 9, 2, 6, 8, & 1129 0, 7, 3, 10, 1, 4, 9, 2, 6, 8 /), & 1130 plot_spectra_level(100) = 999999 1120 1131 1121 1132 REAL :: time_to_start_sp = 0.0
Note: See TracChangeset
for help on using the changeset viewer.