38 integer :: ind, metdata_format, i, lastslash
40 character(len=512):: fpfname, dumppath, filename
58 real :: uuh(0:nxmax-1,0:nymax-1,nuvzmax)
59 real :: vvh(0:nxmax-1,0:nymax-1,nuvzmax)
60 real :: pvh(0:nxmax-1,0:nymax-1,nuvzmax)
61 real :: wwh(0:nxmax-1,0:nymax-1,nwzmax)
62 real :: uuhn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,maxnests)
63 real :: vvhn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,maxnests)
64 real :: pvhn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,maxnests)
65 real :: wwhn(0:nxmaxn-1,0:nymaxn-1,nwzmax,maxnests)
85 INTEGER millisecs_start, millisecs_stop, count_rate, count_max
104 CALL system_clock(millisecs_start, count_rate, count_max)
106 if (metdata_format.eq.ecmwf_metdata)
then
113 memtime(1)=wftime(ind)
115 if (metdata_format.eq.gfs_metdata)
then
122 memtime(1)=wftime(ind)
126 CALL system_clock(millisecs_stop, count_rate, count_max)
127 print *,
'Wall time to process: ', trim(wfname(ind)), &
128 ': ', (millisecs_stop-millisecs_start)/1000.0,
' seconds'
133 do i=1,len(wfname(ind))
134 if (wfname(ind)(i:i).eq.
'/')
then
138 filename = wfname(ind)(lastslash+1:len(wfname(ind)))
140 if ( ldirect.eq.1 )
then
141 fpfname = trim(filename) //
'_fwd.fp'
143 fpfname = trim(filename) //
'_bwd.fp'
145 print *,
'writing ', trim(dumppath) //
'/' // trim(fpfname)
148 CALL system_clock(millisecs_start, count_rate, count_max)
154 CALL system_clock(millisecs_stop, count_rate, count_max)
155 print *,
'Wall time to dump to: ', trim(fpfname), &
156 ': ', (millisecs_stop-millisecs_start)/1000.0,
' seconds'
subroutine convertfields(ind, metdata_format, dumpPath)
subroutine fpmetbinary_dump(filename, cm_index)
subroutine readwind_nests(indj, n, uuhn, vvhn, wwhn)
subroutine calcpar_nests(n, uuhn, vvhn, pvhn, metdata_format)
subroutine readwind_gfs(indj, n, uuh, vvh, wwh)
subroutine readwind_ecmwf(indj, n, uuh, vvh, wwh)
subroutine calcpar_gfs(n, uuh, vvh, pvh)
subroutine calcpar_ecmwf(n, uuh, vvh, pvh)