Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/times.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (9 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/times.F90
r4482 r4727 27 27 USE parallel_lmdz 28 28 implicit none 29 #include"dimensions.h"30 #include"paramet.h"29 INCLUDE "dimensions.h" 30 INCLUDE "paramet.h" 31 31 32 32 max_size=jjm+1 … … 137 137 subroutine allgather_timer 138 138 USE parallel_lmdz 139 implicit none 140 #ifdef CPP_MPI 141 include 'mpif.h' 142 #endif 139 USE lmdz_mpi 140 implicit none 141 143 142 integer :: ierr 144 143 integer :: data_size … … 155 154 156 155 tmp_table(:,:)=timer_table(:,:,mpi_rank) 157 #ifdef CPP_MPI158 156 call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr) 159 #endif160 157 tmp_table(:,:)=timer_table_sqr(:,:,mpi_rank) 161 #ifdef CPP_MPI162 158 call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_table_sqr(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr) 163 #endif164 159 deallocate(tmp_table) 165 160 … … 172 167 subroutine allgather_timer_average 173 168 USE parallel_lmdz 174 implicit none 175 #ifdef CPP_MPI 176 include 'mpif.h' 177 #endif 169 USE lmdz_mpi 170 implicit none 178 171 integer :: ierr 179 172 integer :: data_size … … 192 185 193 186 tmp_table(:,:)=timer_average(:,:,mpi_rank) 194 #ifdef CPP_MPI195 187 call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_average(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr) 196 #endif197 188 tmp_table(:,:)=timer_delta(:,:,mpi_rank) 198 #ifdef CPP_MPI199 189 call mpi_allgather(tmp_table(1,1),data_size,MPI_REAL_LMDZ,timer_delta(1,1,0),data_size,MPI_REAL_LMDZ,COMM_LMDZ,ierr) 200 #endif201 190 tmp_iter(:,:)=timer_iteration(:,:,mpi_rank) 202 #ifdef CPP_MPI203 191 call mpi_allgather(tmp_iter(1,1),data_size,MPI_INTEGER,timer_iteration(1,1,0),data_size,MPI_INTEGER,COMM_LMDZ,ierr) 204 #endif205 192 deallocate(tmp_table) 206 193
Note: See TracChangeset
for help on using the changeset viewer.