286 |
do icvar = 1,maxcvars |
do icvar = 1,maxcvars |
287 |
if ( ncvarindex(icvar) .ne. -1 ) then |
if ( ncvarindex(icvar) .ne. -1 ) then |
288 |
do icvrec = 1,ncvarrecs(icvar) |
do icvrec = 1,ncvarrecs(icvar) |
289 |
do bj = 1,nsy |
cph do bj = 1,nsy |
290 |
do bi = 1,nsx |
cph do bi = 1,nsx |
291 |
read( funit ) ncvarindex(icvar) |
read( funit ) ncvarindex(icvar) |
292 |
read( funit ) filej |
read( funit ) filej |
293 |
read( funit ) filei |
read( funit ) filei |
361 |
icvoffset = icvoffset + cbuffindex |
icvoffset = icvoffset + cbuffindex |
362 |
endif |
endif |
363 |
enddo |
enddo |
364 |
enddo |
cph enddo |
365 |
enddo |
cph enddo |
366 |
enddo |
enddo |
367 |
endif |
endif |
368 |
enddo |
enddo |