Changeset 189 for palm/trunk/SOURCE/data_output_spectra.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/data_output_spectra.f90 (modified) (11 diffs)

palm/trunk/SOURCE/data_output_spectra.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! allow 100 spectra levels instead of 10 for consistency with
+! define_netcdf_header
 ! user-defined spectra
 !
@@ -270 +272 @@
     INTEGER                  :: cranz, labforx = 3, labfory = 3, legpos = 3, &
                                 timodex = 1
-    INTEGER, DIMENSION(1:10) :: cucol = 1, klist = 999999, lstyle = 0
+    INTEGER, DIMENSION(1:100):: cucol = 1, klist = 999999, lstyle = 0
     LOGICAL                  :: datleg = .TRUE., grid = .TRUE., &
                                 lclose = .TRUE., rand = .TRUE., &
@@ -278 +280 @@
     REAL                     :: gwid = 0.1, rlegfak = 0.7, uxmin, uxmax, &
                                 uymin, uymax
-    REAL, DIMENSION(1:10)    :: lwid = 0.6
-    REAL, DIMENSION(10)      :: uyma, uymi
+    REAL, DIMENSION(1:100)   :: lwid = 0.6
+    REAL, DIMENSION(100)     :: uyma, uymi
 
     NAMELIST /RAHMEN/  cranz, datleg, rtext, swap
@@ -301 +303 @@
 !-- different quantities u, v, w, pt and q)
     DO  k = 1, n_sp_x
-       IF ( k < 10 )  THEN
+       IF ( k < 100 )  THEN
           IF ( pr == 3 )  THEN
              WRITE ( 82, 100 )  '#', k, header_char( pr ),        &
@@ -351 +353 @@
 !-- Calculate klist-values from the available comp_spectra_level values
     i = 1; k = 1
-    DO WHILE ( i <= 10  .AND.  plot_spectra_level(i) /= 999999 )
+    DO WHILE ( i <= 100  .AND.  plot_spectra_level(i) /= 999999 )
        DO WHILE ( k <= n_sp_x  .AND. &
                   plot_spectra_level(i) >= comp_spectra_level(k) )
@@ -398 +400 @@
 100 FORMAT (A,I1,1X,A,1X,I4,'m ',A)
 101 FORMAT (A,I2,1X,A,1X,I4,'m ',A)
-102 FORMAT (E15.7,10(1X,E15.7))
+102 FORMAT (E15.7,100(1X,E15.7))
 103 FORMAT ('NEXT')
 104 FORMAT ('time averaged over',F7.1,' s')
@@ -429 +431 @@
     INTEGER                  :: cranz, labforx = 3, labfory = 3, legpos = 3, &
                                 timodex = 1
-    INTEGER, DIMENSION(1:10) :: cucol = 1, klist = 999999, lstyle = 0
+    INTEGER, DIMENSION(1:100):: cucol = 1, klist = 999999, lstyle = 0
     LOGICAL                  :: datleg = .TRUE., grid = .TRUE., &
                                 lclose = .TRUE., rand = .TRUE., &
@@ -437 +439 @@
     REAL                     :: gwid = 0.1, rlegfak = 0.7, uxmin, uxmax, &
                                 uymin, uymax
-    REAL, DIMENSION(1:10)    :: lwid = 0.6
-    REAL, DIMENSION(10)      :: uyma, uymi
+    REAL, DIMENSION(1:100)   :: lwid = 0.6
+    REAL, DIMENSION(100)     :: uyma, uymi
 
     NAMELIST /RAHMEN/  cranz, datleg, rtext, swap
@@ -460 +462 @@
 !-- different quantities u, v, w, pt and q)
     DO  k = 1, n_sp_y
-       IF ( k < 10 )  THEN
+       IF ( k < 100 )  THEN
           IF ( pr == 3 ) THEN
              WRITE ( 84, 100 )  '#', k, header_char( pr ),        &
@@ -510 +512 @@
 !-- Calculate klist-values from the available comp_spectra_level values
     j = 1; k = 1
-    DO WHILE ( j <= 10  .AND.  plot_spectra_level(j) /= 999999 )
+    DO WHILE ( j <= 100  .AND.  plot_spectra_level(j) /= 999999 )
        DO WHILE ( k <= n_sp_y  .AND. &
                   plot_spectra_level(j) >= comp_spectra_level(k) )
@@ -557 +559 @@
 100 FORMAT (A,I1,1X,A,1X,I4,'m ',A)
 101 FORMAT (A,I2,1X,A,1X,I4,'m ',A)
-102 FORMAT (E15.7,10(1X,E15.7))
+102 FORMAT (E15.7,100(1X,E15.7))
 103 FORMAT ('NEXT')
 104 FORMAT ('time averaged over',F7.1,' s')