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

Timestamp:

Mar 15, 2018 9:17:58 AM (6 years ago)

Author:

Giersch

Message:

Reading/Writing? data in case of restart runs revised

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed routines with respect to reading restart data, file 13 is closed in
+! rrd_read_parts_of_global now
+! 
+! 2867 2018-03-09 09:40:23Z suehring
 ! Further bugfix concerning call of user_init. 
 ! 
@@ -492 +496 @@
     USE random_generator_parallel,                                             &
         ONLY:  init_parallel_random_generator
+
+    USE read_restart_data_mod,                                                 &
+        ONLY:  rrd_read_parts_of_global, rrd_local                                      
     
     USE statistics,                                                            &
@@ -1611 +1618 @@
           DO  i = 0, io_blocks-1
              IF ( i == io_group )  THEN
-                CALL read_parts_of_var_list
-                CALL close_file( 13 )
+                CALL rrd_read_parts_of_global
              ENDIF
 #if defined( __parallel )
@@ -1622 +1628 @@
 
 !
-!--    Read binary data from restart file
+!--    Read processor specific binary data from restart file
        DO  i = 0, io_blocks-1
           IF ( i == io_group )  THEN
-             CALL read_3d_binary
+             CALL rrd_local
           ENDIF
 #if defined( __parallel )