Changes in src/timemanager_mpi.f90 [3b80e98:18adf60] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
r3b80e98 r18adf60 253 253 if (mp_dev_mode) write(*,*) 'Reader process: calling mpif_gf_send_vars_async' 254 254 call mpif_gf_send_vars_async(memstat) 255 if (numbnests>0) call mpif_gf_send_vars_nest_async(memstat)256 255 end if 257 256 … … 268 267 if (mp_dev_mode) write(*,*) 'Receiving process: calling mpif_gf_send_vars_async. PID: ', mp_pid 269 268 call mpif_gf_recv_vars_async(memstat) 270 if (numbnests>0) call mpif_gf_recv_vars_nest_async(memstat)271 269 end if 272 270
Note: See TracChangeset
for help on using the changeset viewer.