Changeset d8eed02 in flexpart.git for src/timemanager_mpi.f90
- Timestamp:
- Sep 13, 2017, 10:36:25 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- dd6a4aa
- Parents:
- 5b34509
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
r6ecb30a rd8eed02 86 86 ! xtra1(maxpart), ytra1(maxpart), ztra1(maxpart) = * 87 87 ! spatial positions of trajectories * 88 ! metdata_format format of metdata (ecmwf/gfs) * 88 89 ! * 89 90 ! Constants: * … … 106 107 implicit none 107 108 109 integer :: metdata_format 108 110 logical :: reqv_state=.false. ! .true. if waiting for a MPI_Irecv to complete 109 111 integer :: j,ks,kp,l,n,itime=0,nstop,nstop1,memstat=0 … … 349 351 write (*,*) 'timemanager> call convmix -- forward' 350 352 endif 351 call convmix(itime )353 call convmix(itime,metdata_format) 352 354 endif 353 355
Note: See TracChangeset
for help on using the changeset viewer.