Changeset 173 for palm


Ignore:
Timestamp:
May 23, 2008 8:39:38 PM (16 years ago)
Author:
raasch
Message:

one more bugfix in read_var_list (last one was incomplete)

File:
1 edited

Legend:

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

    r171 r173  
    666666    ENDIF
    667667    READ ( 13 )  statistic_regions_on_file
    668     IF ( statistic_regions_on_file > statistic_regions )  THEN
     668    IF ( statistic_regions_on_file /= statistic_regions )  THEN
    669669       IF ( myid == 0 )  THEN
    670670          PRINT*, '+++ read_parts_of_var_list: WARNING: statistic regions on', &
Note: See TracChangeset for help on using the changeset viewer.