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

Timestamp:

Nov 25, 2008 7:12:43 AM (16 years ago)

Author:

raasch

Message:

reading mechanism for restart files completely revised

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! limitations for nx_on_file, ny_on_file removed (read_parts_of_var_list)
 !
 ! Former revisions:
@@ -725 +725 @@
           CASE ( 'nx' )
              READ ( 13 )  nx_on_file
-             IF ( nx_on_file < ( nxr - nxl ) )  THEN
-                PRINT*, '+++ read_parts_of_var_list: total domain along x on', &
-                             ' restart file is smaller than current subdomain'
-                PRINT*, '                            nx on file = ', nx_on_file
-                PRINT*, '                            nxr - nxl  = ', nxr - nxl
-                CALL local_stop
-             ENDIF
 
           CASE ( 'ny' )
              READ ( 13 )  ny_on_file
-             IF ( ny_on_file < ( nyn - nys ) )  THEN
-                PRINT*, '+++ read_parts_of_var_list: total domain along y on', &
-                             ' restart file is smaller than current subdomain'
-                PRINT*, '                            ny on file = ', ny_on_file
-                PRINT*, '                            nyn - nys  = ', nyn - nys
-                CALL local_stop
-             ENDIF