49 integer :: i,j,ix,jy,inest
50 integer :: idummy = -320
52 integer :: metdata_format = unknown_metdata
54 #ifdef TESTUSEGETFPFIELDS
62 character(len=*),
parameter :: fpdir =
'/home/morton/'
67 character(len=512) :: fpname
74 call
gasdev1(idummy,rannumb(i),rannumb(i+1))
76 call
gasdev1(idummy,rannumb(maxrand),rannumb(maxrand-1))
80 #if defined WITH_CTBTO_PATCHES
81 print*,
'Welcome to FLEXPART Version 9.0 CTBTO'
83 print*,
'Welcome to FLEXPART Version 9.0'
86 print*,
'FLEXPART is free software released under the GNU Genera'// &
115 #ifdef TESTUSEGETFPFIELDS
135 print *,
'Before overwriting...'
136 print *,
'path(3): ', path(3)
137 print *,
'length(3): ', length(3)
140 DO idx_wf = 1, numbwf
141 wfname(idx_wf) = trim(wfname(idx_wf))
142 print *, wfname(idx_wf)
148 length(3) = len(trim(path(3)))
150 print *,
'After overwriting...'
151 print *,
'path(3): ', path(3)
152 print *,
'length(3): ', length(3)
155 DO idx_wf = 1, numbwf
156 fpname = trim(wfname(idx_wf)) //
".fp"
157 wfname(idx_wf) = trim(fpname)
158 print *, wfname(idx_wf)
168 if ( preprocessed_metdata.eq.1 )
then
175 if (metdata_format.eq.ecmwf_metdata)
then
176 print*,
'ECMWF metdata detected'
177 elseif (metdata_format.eq.gfs_metdata)
then
178 print*,
'NCEP metdata detected'
180 stop
'Unknown metdata format'
266 if (ohrea.eqv..true.) &
275 open(unitdates,file=path(2)(1:length(2))//
'dates')
284 ireleasestart(i)=nint(
real(ireleasestart(i))/ &
285 real(lsynctime))*lsynctime
286 ireleaseend(i)=nint(
real(ireleaseend(i))/ &
287 real(lsynctime))*lsynctime
302 cbasefluxn(ix,jy,inest)=0.
315 write(*,*)
'CONGRATULATIONS: YOU HAVE SUCCESSFULLY COMPLETED A FLE&
subroutine readageclasses
subroutine gridcheck_ecmwf
subroutine timemanager(metdata_format)
subroutine gridcheck_nests
subroutine gasdev1(idum, random1, random2)
subroutine readoutgrid_nest
subroutine outgrid_init_nest
subroutine readpartpositions