Changeset 10 for branches/flexpart91_hasod/src_parallel/readavailable.f90
- Timestamp:
- Aug 15, 2013, 3:23:48 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/flexpart91_hasod/src_parallel/readavailable.f90
r8 r10 46 46 ! numbwf actual number of wind fields * 47 47 ! wfname(maxwf) file names of needed wind fields * 48 ! wfspec(maxwf) file specifications of wind fields (e.g., if on disc) *49 48 ! wftime(maxwf) [s]times of wind fields relative to beginning time * 50 ! wfname1,wf spec1,wftime1 = same as above, but only local (help variables) *49 ! wfname1,wftime1 = same as above, but only local (help variables) * 51 50 ! * 52 51 ! Constants: * … … 64 63 integer :: wftime1n(maxnests,maxwf),wftimen(maxnests,maxwf) 65 64 real(kind=dp) :: juldate,jul,beg,end 66 character(len=255) :: fname,spec,wfname1(maxwf) ,wfspec1(maxwf)65 character(len=255) :: fname,spec,wfname1(maxwf) 67 66 character(len=255) :: wfname1n(maxnests,maxwf) 68 character(len=40) :: wfspec1n(maxnests,maxwf)69 67 70 68 … … 109 107 110 108 wfname1(numbwf)=fname(1:index(fname,' ')) 111 wfspec1(numbwf)=spec112 109 wftime1(numbwf)=nint((jul-bdate)*86400._dp) 113 110 endif … … 146 143 147 144 wfname1n(k,numbwfn(k))=fname 148 wfspec1n(k,numbwfn(k))=spec149 145 wftime1n(k,numbwfn(k))=nint((jul-bdate)*86400._dp) 150 146 endif … … 205 201 do i=1,numbwf 206 202 wfname(i)=wfname1(i) 207 wfspec(i)=wfspec1(i)208 203 wftime(i)=wftime1(i) 209 204 end do … … 211 206 do i=1,numbwfn(k) 212 207 wfnamen(k,i)=wfname1n(k,i) 213 wfspecn(k,i)=wfspec1n(k,i)214 208 wftimen(k,i)=wftime1n(k,i) 215 209 end do … … 218 212 do i=1,numbwf 219 213 wfname(numbwf-i+1)=wfname1(i) 220 wfspec(numbwf-i+1)=wfspec1(i)221 214 wftime(numbwf-i+1)=wftime1(i) 222 215 end do … … 224 217 do i=1,numbwfn(k) 225 218 wfnamen(k,numbwfn(k)-i+1)=wfname1n(k,i) 226 wfspecn(k,numbwfn(k)-i+1)=wfspec1n(k,i)227 219 wftimen(k,numbwfn(k)-i+1)=wftime1n(k,i) 228 220 end do
Note: See TracChangeset
for help on using the changeset viewer.