Changeset 78e62dc in flexpart.git for src/getfields_mpi.f90
- Timestamp:
- May 12, 2015, 12:28:19 PM (9 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- 0f20c31
- Parents:
- 2f8635b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/getfields_mpi.f90
r5f9d14a r78e62dc 43 43 ! 44 44 ! eso 2014: 45 ! MPI version. 3 fields instead of 2, to allow reading the newest in 46 ! the background. 47 ! Only one process (lmpreader=.true.) does the actual reading, while the 48 ! rest call this routine only to update memind, memstat etc. 45 ! MPI version. 46 ! If running with number of processes >= mpi_mod::read_grp_min, 47 ! only one process (mpi_mod::lmpreader=.true.) does the actual reading, while 48 ! the rest call this routine only to update memind, memstat etc. 49 ! 50 ! If mpi_mod::lmp_sync=.true., uses 3 fields instead of 2, to allow reading 51 ! the newest in the background. 49 52 ! 50 53 ! Return memstat, which is the sum of … … 61 64 ! indj indicates the number of the wind field to be read in * 62 65 ! indmin remembers the number of wind fields already treated * 63 ! memind(2 )pointer, on which place the wind fields are stored *64 ! memtime(2 ) [s]times of the wind fields, which are kept in memory *66 ! memind(2[3]) pointer, on which place the wind fields are stored * 67 ! memtime(2[3]) [s] times of the wind fields, which are kept in memory * 65 68 ! itime [s] current time since start date of trajectory calcu- * 66 69 ! lation *
Note: See TracChangeset
for help on using the changeset viewer.