Changeset 3160 for palm/trunk/SOURCE/multi_agent_system_mod.f90

Timestamp:

Jul 20, 2018 11:52:56 AM (6 years ago)

Author:

sward

Message:

Changed C_SIZEOF to STORAGE_SIZE

File:

• palm/trunk/SOURCE/multi_agent_system_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed C_SIZEOF to STORAGE_SIZE
+! 
+! 3159 2018-07-20 11:20:01Z sward
 ! Initial revision
 !
@@ -1166 +1169 @@
        ENDIF
        CALL MPI_BARRIER( comm2d, ierr )
-       agt_size = C_SIZEOF(zero_agent)
+       agt_size = STORAGE_SIZE(zero_agent)/8
        IF ( myid == 0 )  THEN
 !
@@ -1788 +1791 @@
 !--       This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 
 !--       variables in structure agent_type (due to the calculation of par_size)
-          par_size = C_SIZEOF(trla(1))
+          par_size = STORAGE_SIZE(trla(1))/8
           CALL MPI_SENDRECV( trla, max(1,trla_count)*par_size, MPI_BYTE, pleft,&
                     1, rvra, max(1,trra_count_recv)*par_size, MPI_BYTE, pright,&
@@ -1809 +1812 @@
 !--       This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 
 !--       variables in structure agent_type (due to the calculation of par_size)
-          par_size = C_SIZEOF(trra(1))
+          par_size = STORAGE_SIZE(trra(1))/8
           CALL MPI_SENDRECV( trra, max(1,trra_count)*par_size, MPI_BYTE,       &
                              pright, 1, rvla,                                  &
@@ -2008 +2011 @@
 !--       This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 
 !--       variables in structure agent_type (due to the calculation of par_size)
-          par_size = C_SIZEOF(trsa(1))
+          par_size = STORAGE_SIZE(trsa(1))/8
           CALL MPI_SENDRECV( trsa, trsa_count*par_size, MPI_BYTE,              &
                              psouth, 1, rvna,                                  &
@@ -2030 +2033 @@
 !--       This MPI_SENDRECV should work even with odd mixture on 32 and 64 Bit 
 !--       variables in structure agent_type (due to the calculation of par_size)
-          par_size = C_SIZEOF(trna(1))
+          par_size = STORAGE_SIZE(trna(1))/8
           CALL MPI_SENDRECV( trna, trna_count*par_size, MPI_BYTE,              &
                              pnorth, 1, rvsa,                                  &
@@ -2298 +2301 @@
 !
 !--       Get bit size of one agent
-          agt_size = C_SIZEOF(zero_agent)
+          agt_size = STORAGE_SIZE(zero_agent)/8
 !
 !--       Send/receive agents to/from left/right neighbor
@@ -2415 +2418 @@
 !
 !--       Get bit size of one agent
-          agt_size = C_SIZEOF(zero_agent)
+          agt_size = STORAGE_SIZE(zero_agent)/8
 !
 !--       Send/receive agents to/from south/north neighbor