Changeset c0884a8 in flexpart.git for src/timemanager.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.f90
ra9cf4b1 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: * … … 108 111 implicit none 109 112 110 integer :: metdata_format113 integer :: id_centre 111 114 integer :: j,ks,kp,l,n,itime=0,nstop,nstop1 112 115 ! integer :: ksp … … 201 204 write (*,*) 'timemanager> call convmix -- backward' 202 205 endif 203 call convmix(itime, metdata_format)206 call convmix(itime,id_centre) 204 207 if (verbosity.gt.1) then 205 208 !CALL SYSTEM_CLOCK(count_clock, count_rate, count_max) … … 214 217 write (*,*) 'timemanager> call getfields' 215 218 endif 216 call getfields(itime,nstop1, metdata_format)219 call getfields(itime,nstop1,id_centre) 217 220 if (verbosity.gt.1) then 218 221 CALL SYSTEM_CLOCK(count_clock) … … 273 276 write (*,*) 'timemanager> call convmix -- forward' 274 277 endif 275 call convmix(itime, metdata_format)278 call convmix(itime,id_centre) 276 279 endif 277 280
Note: See TracChangeset
for help on using the changeset viewer.