120 |
do iobcs = 1,nobcs |
do iobcs = 1,nobcs |
121 |
|
|
122 |
if ( obcsefirst ) then |
if ( obcsefirst ) then |
123 |
call active_read_yz( fnameobcse, tmpfldyz, |
call active_read_yz_loc( fnameobcse, tmpfldyz, |
124 |
& (obcsecount0-1)*nobcs+iobcs, |
& (obcsecount0-1)*nobcs+iobcs, |
125 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
126 |
& mythid, xx_obcse_dummy ) |
& mythid, xx_obcse_dummy ) |
234 |
enddo |
enddo |
235 |
enddo |
enddo |
236 |
|
|
237 |
call active_read_yz( fnameobcse, tmpfldyz, |
call active_read_yz_loc( fnameobcse, tmpfldyz, |
238 |
& (obcsecount1-1)*nobcs+iobcs, |
& (obcsecount1-1)*nobcs+iobcs, |
239 |
& doglobalread, ladinit, optimcycle, |
& doglobalread, ladinit, optimcycle, |
240 |
& mythid, xx_obcse_dummy ) |
& mythid, xx_obcse_dummy ) |