Changes in src/timemanager.f90 [a76d954:6ecb30a] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager.f90
ra76d954 r6ecb30a 20 20 !********************************************************************** 21 21 22 subroutine timemanager 22 subroutine timemanager(metdata_format) 23 23 24 24 !***************************************************************************** … … 50 50 ! For compatibility with 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: * … … 102 106 implicit none 103 107 108 integer :: metdata_format 104 109 integer :: j,ks,kp,l,n,itime=0,nstop,nstop1 105 110 ! integer :: ksp … … 194 199 write (*,*) 'timemanager> call convmix -- backward' 195 200 endif 196 call convmix(itime )201 call convmix(itime,metdata_format) 197 202 if (verbosity.gt.1) then 198 203 !CALL SYSTEM_CLOCK(count_clock, count_rate, count_max) … … 207 212 write (*,*) 'timemanager> call getfields' 208 213 endif 209 call getfields(itime,nstop1 )214 call getfields(itime,nstop1,metdata_format) 210 215 if (verbosity.gt.1) then 211 216 CALL SYSTEM_CLOCK(count_clock) … … 266 271 write (*,*) 'timemanager> call convmix -- forward' 267 272 endif 268 call convmix(itime )273 call convmix(itime,metdata_format) 269 274 endif 270 275
Note: See TracChangeset
for help on using the changeset viewer.