Changeset 147 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Feb 1, 2008 12:41:46 PM (17 years ago)

Author:

raasch

Message:

further updates for turbulent inflow: reading input data of a precursor run using a smaller total domain is working

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -8 +8 @@
 ! -----------------
 ! Allocation of hom_sum moved to parin, initialization of spectrum_x|y directly
-! after allocating theses arrays
+! after allocating theses arrays,
+! read data for recycling added as new initialization option
 !
 ! Former revisions:
@@ -366 +367 @@
 !
 !-- Initialize model variables
-    IF ( TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
+    IF ( TRIM( initializing_actions ) /= 'read_restart_data'  .AND.  &
+         TRIM( initializing_actions ) /= 'read_data_for_recycling' )  THEN
 !
 !--    First model run of a possible job queue.
@@ -907 +909 @@
        ENDIF
 
-    ELSEIF ( TRIM( initializing_actions ) == 'read_restart_data' ) &
+    ELSEIF ( TRIM( initializing_actions ) == 'read_restart_data'  .OR.    &
+             TRIM( initializing_actions ) == 'read_data_for_recycling' )  &
     THEN
 !
+!--    When reading data for initializing the recycling method, first read
+!--    some of the global variables from restart file
+       IF ( TRIM( initializing_actions ) == 'read_data_for_recycling' )  THEN
+          WRITE (9,*) 'before read_parts_of_var_list'
+          CALL local_flush( 9 )
+          CALL read_parts_of_var_list
+          WRITE (9,*) 'after read_parts_of_var_list'
+          CALL local_flush( 9 )
+          CALL close_file( 13 )
+       ENDIF
+
+!
 !--    Read binary data from restart file
+          WRITE (9,*) 'before read_3d_binary'
+          CALL local_flush( 9 )
        CALL read_3d_binary
+          WRITE (9,*) 'after read_3d_binary'
+          CALL local_flush( 9 )
 
 !