Ignore:
Timestamp:
Apr 9, 2008 8:06:03 AM (13 years ago)
Author:
raasch
Message:

bugfix of max_pr_user problem

File:
1 edited

Legend:

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

    r153 r159  
    6767    CHARACTER (LEN=10) ::  binary_version, version_on_file
    6868    CHARACTER (LEN=30) ::  variable_chr
    69 
    70     INTEGER            ::  max_pr_user_on_file
    7169
    7270
     
    130128       CALL local_stop
    131129    ENDIF
    132     READ ( 13 )  max_pr_user_on_file
    133     IF ( max_pr_user_on_file /= max_pr_user )  THEN
    134        IF ( myid == 0 )  THEN
    135           PRINT*, '+++ read_var_list: version mismatch concerning maximum', &
    136                   ' number of user profiles'
    137           PRINT*, '                   max_pr_user on file    = "', &
    138                   max_pr_user_on_file, '"'
    139           PRINT*, '                   max_pr_user from run   = "', &
    140                   max_pr_user, '"'
    141        ENDIF
    142        CALL local_stop
    143     ENDIF
     130    READ ( 13 )  max_pr_user    ! This value is checked against the number of
     131                                ! user profiles given for the current run
     132                                ! in routine user_parin (it has to match)
    144133
    145134    READ ( 13 )  variable_chr
     
    670659    READ ( 13 )  variable_chr
    671660    IF ( TRIM( variable_chr ) /= 'statistic_regions' )  THEN
    672        PRINT*, '+++ read_var_list: statistic_regions not found in restart da', &
    673                     'ta file'
     661       PRINT*, '+++ read_parts_of_var_list: statistic_regions not found in ', &
     662                    'restart data file'
    674663       CALL local_stop
    675664    ENDIF
Note: See TracChangeset for help on using the changeset viewer.