Changeset 173

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:

• palm/trunk/SOURCE/read_var_list.f90 (modified) (1 diff)

palm/trunk/SOURCE/read_var_list.f90

@@ -666 +666 @@
     ENDIF
     READ ( 13 )  statistic_regions_on_file
-    IF ( statistic_regions_on_file > statistic_regions )  THEN
+    IF ( statistic_regions_on_file /= statistic_regions )  THEN
        IF ( myid == 0 )  THEN
           PRINT*, '+++ read_parts_of_var_list: WARNING: statistic regions on', &