Changeset bb579a9 in flexpart.git for src/timemanager_mpi.f90
- Timestamp:
- Sep 13, 2017, 11:55:16 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:
- 08a38b5
- Parents:
- aa8c34a (diff), dd6a4aa (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
rb5127f9 rd8eed02 20 20 !********************************************************************** 21 21 22 subroutine timemanager 22 subroutine timemanager(metdata_format) 23 23 24 24 !***************************************************************************** … … 50 50 ! MPI version * 51 51 ! Variables uap,ucp,uzp,us,vs,ws,cbt now in module com_mod * 52 ! Unified ECMWF and GFS builds * 53 ! Marian Harustak, 12.5.2017 * 54 ! - Added passing of metdata_format as it was needed by called routines * 52 55 !***************************************************************************** 53 56 ! * … … 83 86 ! xtra1(maxpart), ytra1(maxpart), ztra1(maxpart) = * 84 87 ! spatial positions of trajectories * 88 ! metdata_format format of metdata (ecmwf/gfs) * 85 89 ! * 86 90 ! Constants: * … … 103 107 implicit none 104 108 109 integer :: metdata_format 105 110 logical :: reqv_state=.false. ! .true. if waiting for a MPI_Irecv to complete 106 111 integer :: j,ks,kp,l,n,itime=0,nstop,nstop1,memstat=0 … … 205 210 endif 206 211 ! readwind process skips this step 207 if (.not.(lmpreader.and.lmp_use_reader)) call convmix(itime )212 if (.not.(lmpreader.and.lmp_use_reader)) call convmix(itime,metdata_format) 208 213 endif 209 214 … … 218 223 if (mp_measure_time) call mpif_mtime('getfields',0) 219 224 220 call getfields(itime,nstop1,memstat )225 call getfields(itime,nstop1,memstat,metdata_format) 221 226 222 227 if (mp_measure_time) call mpif_mtime('getfields',1) … … 346 351 write (*,*) 'timemanager> call convmix -- forward' 347 352 endif 348 call convmix(itime )353 call convmix(itime,metdata_format) 349 354 endif 350 355
Note: See TracChangeset
for help on using the changeset viewer.