Changeset 4498 for palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

Timestamp:

Apr 15, 2020 2:26:31 PM (4 years ago)

Author:

raasch

Message:

bugfix for creation of filetypes, argument removed from rd_mpi_io_open, files re-formatted to follow the PALM coding standard

File:

• palm/trunk/SOURCE/restart_data_mpi_io_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! bugfix for creation of filetypes, argument removed from rd_mpi_io_open
+! 
+! 4497 2020-04-15 10:20:51Z raasch
 ! last bugfix deactivated because of compile problems
 ! 
@@ -244 +247 @@
 !> Open restart file for read or write with MPI-IO
 !--------------------------------------------------------------------------------------------------!
- SUBROUTINE rd_mpi_io_open( action, file_name, only_global )
+ SUBROUTINE rd_mpi_io_open( action, file_name )
 
     IMPLICIT NONE
@@ -251 +254 @@
     CHARACTER(LEN=*), INTENT(IN)  ::  file_name                        !<
 
-    LOGICAL, INTENT(IN), OPTIONAL ::  only_global                      !<
-    LOGICAL                       ::  set_filetype                     !<
-
     INTEGER(iwp)                  ::  i                                !<
     INTEGER(iwp)                  ::  gh_size                          !<
@@ -276 +276 @@
 !-- Create subarrays and file types
     filetypes_created = .FALSE.
-    set_filetype      = .TRUE.
-
-    IF ( PRESENT( only_global ) )  THEN
-       IF ( only_global )  set_filetype = .FALSE.
-    ENDIF
 
 !
 !-- In case of read it is not known yet if data include total domain. Filetypes will be created
 !-- further below.
-    IF ( set_filetype  .AND.  wr_flag)  THEN
+    IF ( wr_flag)  THEN
        CALL rs_mpi_io_create_filetypes
        filetypes_created = .TRUE.
@@ -368 +363 @@
 
 !
-!--    File types deoend on if boundaries of the total domain is included in data
-       IF ( set_filetype )  THEN
-          CALL rs_mpi_io_create_filetypes
-          filetypes_created = .TRUE.
-       ENDIF
+!--    File types depend on if boundaries of the total domain is included in data. This has been
+!--    checked with the previous statement.
+       CALL rs_mpi_io_create_filetypes
+       filetypes_created = .TRUE.
 
 #if defined( __parallel )