& iobcs .EQ. obcspos .AND.
integer obcspos
obcspos = obcsglo
O obcspos,
obcspos = iobcs
obcspos = -1
INTEGER obcspos
& icvrec, itile, jtile, layer, obcspos,
obcspos = 0
& ' ; bi,bj=', itile, jtile, ' ; iobc=', obcspos,
iobcsmem ( ichknum ) = obcspos
& layer,itile,jtile,obcspos,