Changeset 3b80e98 in flexpart.git for src/timemanager_mpi.f90
- Timestamp:
- May 11, 2016, 10:35:14 AM (8 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- a652cd5, 93786a1
- Parents:
- 18adf60
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
r18adf60 r3b80e98 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) 255 256 end if 256 257 … … 267 268 if (mp_dev_mode) write(*,*) 'Receiving process: calling mpif_gf_send_vars_async. PID: ', mp_pid 268 269 call mpif_gf_recv_vars_async(memstat) 270 if (numbnests>0) call mpif_gf_recv_vars_nest_async(memstat) 269 271 end if 270 272
Note: See TracChangeset
for help on using the changeset viewer.