Changeset 189 for palm/trunk/SOURCE/modules.f90

Timestamp:

Aug 13, 2008 5:09:26 PM (16 years ago)

Author:

letzel

Message:

• changed: allow 100 spectra levels instead of 10 for consistency with define_netcdf_header

File:

• palm/trunk/SOURCE/modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Actual revisions:
 ! -----------------
+! allow 100 spectra levels instead of 10 for consistency with 
+! define_netcdf_header
 ! +canopy_heat_flux, cthf, lai,
 ! +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
 
-    INTEGER ::  comp_spectra_level(10) = 999999,                   &
-                lstyles(10) = (/ 0, 7, 3, 10, 1, 4, 9, 2, 6, 8 /), &
-                plot_spectra_level(10) = 999999
+    INTEGER ::  comp_spectra_level(100) = 999999,                   &
+                lstyles(100) = (/ 0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8,    &
+                                  0, 7, 3, 10, 1, 4, 9, 2, 6, 8 /), &
+                plot_spectra_level(100) = 999999
 
     REAL    ::  time_to_start_sp = 0.0