Ignore:
Timestamp:
Nov 25, 2008 7:12:43 AM (13 years ago)
Author:
raasch
Message:

reading mechanism for restart files completely revised

File:
1 edited

Legend:

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

    r198 r216  
    44! Actual revisions:
    55! -----------------
    6 !
     6! limitations for nx_on_file, ny_on_file removed (read_parts_of_var_list)
    77!
    88! Former revisions:
     
    725725          CASE ( 'nx' )
    726726             READ ( 13 )  nx_on_file
    727              IF ( nx_on_file < ( nxr - nxl ) )  THEN
    728                 PRINT*, '+++ read_parts_of_var_list: total domain along x on', &
    729                              ' restart file is smaller than current subdomain'
    730                 PRINT*, '                            nx on file = ', nx_on_file
    731                 PRINT*, '                            nxr - nxl  = ', nxr - nxl
    732                 CALL local_stop
    733              ENDIF
    734727
    735728          CASE ( 'ny' )
    736729             READ ( 13 )  ny_on_file
    737              IF ( ny_on_file < ( nyn - nys ) )  THEN
    738                 PRINT*, '+++ read_parts_of_var_list: total domain along y on', &
    739                              ' restart file is smaller than current subdomain'
    740                 PRINT*, '                            ny on file = ', ny_on_file
    741                 PRINT*, '                            nyn - nys  = ', nyn - nys
    742                 CALL local_stop
    743              ENDIF
    744730
    745731
Note: See TracChangeset for help on using the changeset viewer.