Ignore:
Timestamp:
May 22, 2008 12:51:21 PM (13 years ago)
Author:
raasch
Message:

bugfix in read_var_list, default mrun_config changed

File:
1 edited

Legend:

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

    r159 r170  
    583583
    584584    INTEGER ::  idum, max_pr_user_on_file, nz_on_file, &
    585                 statistic_regions_on_file
     585                statistic_regions_on_file, tmp_mpru, tmp_sr
    586586
    587587    REAL, DIMENSION(:,:,:),   ALLOCATABLE ::  hom_sum_on_file
     
    645645    ENDIF
    646646    READ ( 13 )  max_pr_user_on_file
    647     IF ( max_pr_user_on_file > max_pr_user )  THEN
     647    IF ( max_pr_user_on_file /= max_pr_user )  THEN
    648648       IF ( myid == 0 )  THEN
    649           PRINT*, '+++ read_parts_of_var_list: too many user profiles on res', &
    650                        'tart data file'
     649          PRINT*, '+++ read_parts_of_var_list: number of user profiles on res', &
     650                       'tart data file differs from the current run'
    651651          PRINT*, '                   max_pr_user on file    = "', &
    652652                  max_pr_user_on_file, '"'
     
    654654                  max_pr_user, '"'
    655655       ENDIF
    656        CALL local_stop
     656       tmp_mpru = MIN( max_pr_user_on_file, max_pr_user )
     657    ELSE
     658       tmp_mpru = max_pr_user
    657659    ENDIF
    658660
     
    666668    IF ( statistic_regions_on_file > statistic_regions )  THEN
    667669       IF ( myid == 0 )  THEN
    668           PRINT*, '+++ read_parts_of_var_list: too many statistic regions on', &
    669                        ' restart data file'
    670           PRINT*, '                   statistic regions on file    = "', &
    671                   max_pr_user_on_file, '"'
    672           PRINT*, '                   statistic regions from run   = "', &
    673                   max_pr_user, '"'
     670          PRINT*, '+++ read_parts_of_var_list: WARNING: statistic regions on', &
     671                       ' restart data file differ from the current run'
     672          PRINT*, '                            statistic regions on file    = "', &
     673                  statistic_regions_on_file, '"'
     674          PRINT*, '                            statistic regions from run   = "', &
     675                  statistivc_regions, '"'
     676          PRINT*, '                            statistic data may be lost!'
    674677       ENDIF
    675        CALL local_stop
     678       tmp_sr = MIN( statistic_regions_on_file, statistic_regions )
     679    ELSE
     680       tmp_sr = statistic_regions
    676681    ENDIF
    677682
     
    703708                       0:statistic_regions_on_file) )
    704709             READ ( 13 )  hom_on_file
    705              hom = hom_on_file(:,:,1:pr_palm+max_pr_user,0:statistic_regions)
     710             hom(:,:,1:pr_palm+tmp_mpru,0:tmp_sr) = &
     711                          hom_on_file(:,:,1:pr_palm+tmp_mpru,0:tmp_sr)
    706712             DEALLOCATE( hom_on_file )
    707713
     
    710716                       0:statistic_regions_on_file) )
    711717             READ ( 13 )  hom_sum_on_file
    712              hom_sum = hom_sum_on_file(:,1:pr_palm+max_pr_user, &
    713                                        0:statistic_regions)
     718             hom_sum(:,1:pr_palm+tmp_mpru,0:tmp_sr) = &
     719                          hom_sum_on_file(:,1:pr_palm+tmp_mpru,0:tmp_sr)
    714720             DEALLOCATE( hom_sum_on_file )
    715721
Note: See TracChangeset for help on using the changeset viewer.