Changeset 1786 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Mar 8, 2016 5:49:27 AM (9 years ago)

Author:

raasch

Message:

pmc-change in server-client get-put, spectra-directives removed, spectra-package modularized

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! cpp-direktives for spectra removed, check of spectra level removed
 !
 ! Former revisions:
@@ -326 +326 @@
     USE profil_parameter
     USE radiation_model_mod
-    USE spectrum
     USE statistics
     USE subsidence_mod
@@ -3752 +3751 @@
     END SELECT
 
-#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