Changeset 159 for palm/trunk/SOURCE/read_var_list.f90

Timestamp:

Apr 9, 2008 8:06:03 AM (15 years ago)

Author:

raasch

Message:

bugfix of max_pr_user problem

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -67 +67 @@
     CHARACTER (LEN=10) ::  binary_version, version_on_file
     CHARACTER (LEN=30) ::  variable_chr
-
-    INTEGER            ::  max_pr_user_on_file
 
 
@@ -130 +128 @@
        CALL local_stop
     ENDIF
-    READ ( 13 )  max_pr_user_on_file
-    IF ( max_pr_user_on_file /= max_pr_user )  THEN
-       IF ( myid == 0 )  THEN
-          PRINT*, '+++ read_var_list: version mismatch concerning maximum', &
-                  ' number of user profiles'
-          PRINT*, '                   max_pr_user on file    = "', &
-                  max_pr_user_on_file, '"'
-          PRINT*, '                   max_pr_user from run   = "', &
-                  max_pr_user, '"'
-       ENDIF
-       CALL local_stop
-    ENDIF
+    READ ( 13 )  max_pr_user    ! This value is checked against the number of
+                                ! user profiles given for the current run
+                                ! in routine user_parin (it has to match)
 
     READ ( 13 )  variable_chr
@@ -670 +659 @@
     READ ( 13 )  variable_chr
     IF ( TRIM( variable_chr ) /= 'statistic_regions' )  THEN
-       PRINT*, '+++ read_var_list: statistic_regions not found in restart da', &
-                    'ta file'
+       PRINT*, '+++ read_parts_of_var_list: statistic_regions not found in ', &
+                    'restart data file'
        CALL local_stop
     ENDIF