Changeset 1236 for palm/trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_parameters.f90

    r1217 r1236  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! check number of spectra levels
    2323!
    2424! Former revisions:
     
    305305    USE pegrid
    306306    USE profil_parameter
     307    USE spectrum
     308    USE statistics
    307309    USE subsidence_mod
    308     USE statistics
    309310    USE transpose_indices
    310311
     
    31283129    ENDIF
    31293130
     3131#if defined( __spectra )
     3132!
     3133!-- Check the number of spectra level to be output
     3134    i = 1
     3135    DO WHILE ( comp_spectra_level(i) /= 999999  .AND.  i <= 100 )
     3136       i = i + 1
     3137    ENDDO
     3138    i = i - 1
     3139    IF ( i == 0 )  THEN
     3140       WRITE( message_string, * )  'no spectra levels given'
     3141       CALL message( 'check_parameters', 'PA0019', 1, 2, 0, 6, 0 )
     3142    ENDIF
     3143#endif
     3144
    31303145!
    31313146!-- Check mask conditions
Note: See TracChangeset for help on using the changeset viewer.