Symbol Description Uses
j0 11


File Line number Procedure Code
./pkg/compon_communic/mitcomponent_register.F 2 MITCOMPONENT_REGISTER 
      subroutine MITCOMPONENT_REGISTER( nx, ny, i0, j0 )
./pkg/compon_communic/mitcomponent_register.F 30 MITCOMPONENT_REGISTER 
      ibuf(5)=j0
./pkg/compon_communic/mitcomponent_register.F 36 MITCOMPONENT_REGISTER 
      my_tile_j0(1)=j0
./pkg/compon_communic/mitcomponent_register.F 6 MITCOMPONENT_REGISTER 
      integer nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 25 MITCOUPLER_REGISTER 
      integer j,numtiles,nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 62 MITCOUPLER_REGISTER 
       j0=ibuf(5)
./pkg/compon_communic/mitcoupler_register.F 80 MITCOUPLER_REGISTER 
       if (j0.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 81 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0
./pkg/compon_communic/mitcoupler_register.F 88 MITCOUPLER_REGISTER 
       if (j0+ny-1.gt.nny) then
./pkg/compon_communic/mitcoupler_register.F 89 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0
./pkg/compon_communic/mitcoupler_register.F 97 MITCOUPLER_REGISTER 
       component_tile_j0(1,n,compind)=j0