36 integer :: ind, metdata_format, i, lastslash
38 character(len=512):: fpfname, dumppath, filename
56 real :: uuh(0:nxmax-1,0:nymax-1,nuvzmax)
57 real :: vvh(0:nxmax-1,0:nymax-1,nuvzmax)
58 real :: pvh(0:nxmax-1,0:nymax-1,nuvzmax)
59 real :: wwh(0:nxmax-1,0:nymax-1,nwzmax)
60 real :: uuhn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,maxnests)
61 real :: vvhn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,maxnests)
62 real :: pvhn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,maxnests)
63 real :: wwhn(0:nxmaxn-1,0:nymaxn-1,nwzmax,maxnests)
83 INTEGER millisecs_start, millisecs_stop, count_rate, count_max
102 CALL system_clock(millisecs_start, count_rate, count_max)
104 if (metdata_format.eq.ecmwf_metdata)
then
111 memtime(1)=wftime(ind)
113 if (metdata_format.eq.gfs_metdata)
then
120 memtime(1)=wftime(ind)
124 CALL system_clock(millisecs_stop, count_rate, count_max)
125 print *,
'Wall time to process: ', trim(wfname(ind)), &
126 ': ', (millisecs_stop-millisecs_start)/1000.0,
' seconds'
136 filename = wfname(ind)(lastslash+1:len(wfname(ind)))
146 CALL system_clock(millisecs_start, count_rate, count_max)
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 processmetfields(ind, metdata_format)
subroutine calcpar_gfs(n, uuh, vvh, pvh)
subroutine calcpar_ecmwf(n, uuh, vvh, pvh)