Changeset 170 for palm/trunk


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

bugfix in read_var_list, default mrun_config changed

Location:
palm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/.mrun.config.default

    r131 r170  
    2727%compiler_name     mpif90                                        lcmuk parallel
    2828%compiler_name_ser ifort                                         lcmuk parallel
    29 %cpp_options       -DMPI_REAL=MPI_DOUBLE_PRECISION:-DMPI_2REAL=MPI_2DOUBLE_PRECISION:-D__netcdf:-D__netcdf_64bit:-D__intel_openmp_bug   lcmuk parallel
    30 %netcdf_inc        -I:/muksoft/packages/netcdf/linux/include            lcmuk parallel
    31 %netcdf_lib        -L/muksoft/packages/netcdf/linux/lib:-lnetcdf        lcmuk parallel
    32 %fopts             -axW:-cpp:-openmp:-r8:-nbs:-convert:little_endian     lcmuk parallel
    33 %lopts             -axW:-cpp:-openmp:-r8:-nbs:-Vaxlib                    lcmuk parallel
     29%cpp_options       -D__mpi2:-DMPI_REAL=MPI_DOUBLE_PRECISION:-DMPI_2REAL=MPI_2DOUBLE_PRECISION:-D__netcdf:-D__netcdf_64bit:-D__intel_openmp_bug   lcmuk parallel
     30%netcdf_inc        -I:/muksoft_64/packages/netcdf/3.6.2/include            lcmuk parallel
     31%netcdf_lib        -L/muksoft_64/packages/netcdf/3.6.2/lib:-lnetcdf        lcmuk parallel
     32%fopts             -axW:-cpp:-openmp:-r8:-nbs:-convert:little_endian:-I:/muksoft/packages/mpich2/2.1.0.4/include     lcmuk parallel
     33%lopts             -axW:-cpp:-openmp:-r8:-nbs:-Vaxlib:-L:/muksoft/packages/mpich2/2.1.0.4/lib                    lcmuk parallel
    3434#%hostfile          $base_directory/.hostfile                    lcmuk parallel
    3535#
  • 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.