Changeset c0884a8 in flexpart.git for src/timemanager_mpi.f90
- Timestamp:
- Jul 20, 2018, 2:40:39 PM (6 years ago)
- Branches:
- univie
- Children:
- 7ca2ef4
- Parents:
- f251e57
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
r20963b1 rc0884a8 20 20 !********************************************************************** 21 21 22 subroutine timemanager( metdata_format)22 subroutine timemanager(id_centre) 23 23 24 24 !***************************************************************************** … … 52 52 ! Unified ECMWF and GFS builds * 53 53 ! Marian Harustak, 12.5.2017 * 54 ! - Added passing of metdata_format as it was needed by called routines * 54 ! - Added passing of id_centre as it was needed by called routines * 55 ! * 56 ! Petra Seibert, 2018-06-26: simplified version met data format detection * 57 ! * 55 58 !***************************************************************************** 56 59 ! * … … 86 89 ! xtra1(maxpart), ytra1(maxpart), ztra1(maxpart) = * 87 90 ! spatial positions of trajectories * 88 ! metdata_formatformat of metdata (ecmwf/gfs) *91 ! id_centre format of metdata (ecmwf/gfs) * 89 92 ! * 90 93 ! Constants: * … … 109 112 implicit none 110 113 111 integer :: metdata_format114 integer :: id_centre 112 115 logical :: reqv_state=.false. ! .true. if waiting for a MPI_Irecv to complete 113 116 integer :: j,ks,kp,l,n,itime=0,nstop,nstop1,memstat=0 … … 214 217 endif 215 218 ! readwind process skips this step 216 if (.not.(lmpreader.and.lmp_use_reader)) call convmix(itime, metdata_format)219 if (.not.(lmpreader.and.lmp_use_reader)) call convmix(itime,id_centre) 217 220 endif 218 221 … … 227 230 if (mp_measure_time) call mpif_mtime('getfields',0) 228 231 229 call getfields(itime,nstop1,memstat, metdata_format)232 call getfields(itime,nstop1,memstat,id_centre) 230 233 231 234 if (mp_measure_time) call mpif_mtime('getfields',1) … … 355 358 write (*,*) 'timemanager> call convmix -- forward' 356 359 endif 357 call convmix(itime, metdata_format)360 call convmix(itime,id_centre) 358 361 endif 359 362
Note: See TracChangeset
for help on using the changeset viewer.