Changeset 4628 for palm/trunk/SOURCE/posix_interface_mod.f90

Timestamp:

Jul 29, 2020 7:23:03 AM (4 years ago)

Author:

raasch

Message:

extensions required for MPI-I/O of particle data to restart files

File:

• palm/trunk/SOURCE/posix_interface_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/posix_interface_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! extensions required for MPI-I/O of particle data to restart files
+! 
+! 4495 2020-04-13 20:11:20Z raasch
 ! Initial version (K. Ketelsen)
 !
@@ -126 +129 @@
        MODULE PROCEDURE posix_read_int_1d
        MODULE PROCEDURE posix_read_int_2d
+       MODULE PROCEDURE posix_read_i4_3d
+       MODULE PROCEDURE posix_read_i8_3d
        MODULE PROCEDURE posix_read_offset_1d
        MODULE PROCEDURE posix_read_real_1d
@@ -137 +142 @@
        MODULE PROCEDURE posix_write_int_1d
        MODULE PROCEDURE posix_write_int_2d
+       MODULE PROCEDURE posix_write_i4_3d
+       MODULE PROCEDURE posix_write_i8_3d
        MODULE PROCEDURE posix_write_offset_1d
        MODULE PROCEDURE posix_write_real_1d
@@ -232 +239 @@
 
 
- SUBROUTINE posix_read_int_2d (fid, data, nw)
+ SUBROUTINE posix_read_int_2d( fid, data, nw )
 
     IMPLICIT NONE
@@ -250 +257 @@
 
  END SUBROUTINE posix_read_int_2d
+
+
+
+ SUBROUTINE posix_read_i4_3d( fid, data, nw )
+
+    IMPLICIT NONE
+
+    INTEGER(KIND=isp), INTENT(IN), TARGET, DIMENSION(:,:,:) ::  data         !<
+    INTEGER, INTENT(IN)                                     ::  fid          !<
+    INTEGER                                                 ::  nr_byte      !<
+    INTEGER, INTENT(IN)                                     ::  nw           !<
+
+    TYPE(C_PTR)                                             ::  buf          !<
+
+
+    nr_byte = nw * isp
+    buf     = C_LOC( data )
+
+    CALL posix_read( fid, buf, nr_byte )
+
+ END SUBROUTINE posix_read_i4_3d
+
+
+
+ SUBROUTINE posix_read_i8_3d( fid, data, nw )
+
+    IMPLICIT NONE
+
+    INTEGER(KIND=idp), INTENT(IN), TARGET, DIMENSION(:,:,:) ::  data         !<
+    INTEGER, INTENT(IN)                                     ::  fid          !<
+    INTEGER                                                 ::  nr_byte      !<
+    INTEGER, INTENT(IN)                                     ::  nw           !<
+
+    TYPE(C_PTR)                                             ::  buf          !<
+
+
+    nr_byte = nw * idp
+    buf     = C_LOC( data )
+
+    CALL posix_read( fid, buf, nr_byte )
+
+ END SUBROUTINE posix_read_i8_3d
 
 
@@ -448 +497 @@
 
 
+ SUBROUTINE posix_write_i4_3d( fid, data, nw )
+
+    IMPLICIT NONE
+
+    INTEGER, INTENT(IN)                                     ::  fid        !<
+    INTEGER                                                 ::  nr_byte    !<
+    INTEGER, INTENT(IN)                                     ::  nw         !<
+
+    INTEGER(KIND=isp), INTENT(IN), TARGET, DIMENSION(:,:,:) ::  data       !<
+
+    TYPE(C_PTR)                                             ::  buf        !<
+
+
+    nr_byte = nw * isp
+    buf     = C_LOC( data )
+
+    CALL posix_write( fid, buf, nr_byte )
+
+ END SUBROUTINE posix_write_i4_3d
+
+
+
+ SUBROUTINE posix_write_i8_3d( fid, data, nw )
+
+    IMPLICIT NONE
+
+    INTEGER, INTENT(IN)                                     ::  fid        !<
+    INTEGER                                                 ::  nr_byte    !<
+    INTEGER, INTENT(IN)                                     ::  nw         !<
+
+    INTEGER(KIND=idp), INTENT(IN), TARGET, DIMENSION(:,:,:) ::  data       !<
+
+    TYPE(C_PTR)                                             ::  buf        !<
+
+
+    nr_byte = nw * idp
+    buf     = C_LOC( data )
+
+    CALL posix_write( fid, buf, nr_byte )
+
+ END SUBROUTINE posix_write_i8_3d
+
+
+
  SUBROUTINE posix_write_offset_1d( fid, data, nw )