Symbol Description Uses
ireg 10


File Line number Procedure Code
./pkg/compon_communic/mitcomponent_tile_register.F 10 MITCOMPONENT_TILE_REGISTER 
      integer ireg(4,ntx,nty)
./pkg/compon_communic/mitcomponent_tile_register.F 33 MITCOMPONENT_TILE_REGISTER 
        if ( ireg(1,bi,bj)*ireg(2,bi,bj).gt.0 ) then
./pkg/compon_communic/mitcomponent_tile_register.F 35 MITCOMPONENT_TILE_REGISTER 
         my_tile_nx(num_tiles)=ireg(1,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 36 MITCOMPONENT_TILE_REGISTER 
         my_tile_ny(num_tiles)=ireg(2,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 37 MITCOMPONENT_TILE_REGISTER 
         my_tile_i0(num_tiles)=ireg(3,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 38 MITCOMPONENT_TILE_REGISTER 
         my_tile_j0(num_tiles)=ireg(4,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 43 MITCOMPONENT_TILE_REGISTER 
     &              ' nx,ny=',ireg(1,bi,bj),ireg(2,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 5 MITCOMPONENT_TILE_REGISTER 
      subroutine MITCOMPONENT_TILE_REGISTER( ntx, nty, ireg, rreg )