Changeset 1236 for palm/trunk

Timestamp:

Sep 27, 2013 7:21:13 AM (11 years ago)

Author:

raasch

Message:

bugfix: number of selected spectra levels is checked for 0

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! check number of spectra levels
 !
 ! Former revisions:
@@ -305 +305 @@
     USE pegrid
     USE profil_parameter
+    USE spectrum
+    USE statistics
     USE subsidence_mod
-    USE statistics
     USE transpose_indices
 
@@ -3128 +3129 @@
     ENDIF
 
+#if defined( __spectra )
+!
+!-- Check the number of spectra level to be output
+    i = 1
+    DO WHILE ( comp_spectra_level(i) /= 999999  .AND.  i <= 100 )
+       i = i + 1
+    ENDDO
+    i = i - 1
+    IF ( i == 0 )  THEN
+       WRITE( message_string, * )  'no spectra levels given'
+       CALL message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 )
+    ENDIF
+#endif
+
 !
 !-- Check mask conditions