Symbol Description Uses
j0 11


File Line number Procedure Code
./pkg/compon_communic/mitcomponent_register.F 33 MITCOMPONENT_REGISTER 
      ibuf(5)=j0
./pkg/compon_communic/mitcomponent_register.F 39 MITCOMPONENT_REGISTER 
      my_tile_j0(1)=j0
./pkg/compon_communic/mitcomponent_register.F 5 MITCOMPONENT_REGISTER 
      subroutine MITCOMPONENT_REGISTER( nx, ny, i0, j0 )
./pkg/compon_communic/mitcomponent_register.F 9 MITCOMPONENT_REGISTER 
      integer nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 100 MITCOUPLER_REGISTER 
       component_tile_j0(1,n,compind)=j0
./pkg/compon_communic/mitcoupler_register.F 28 MITCOUPLER_REGISTER 
      integer j,numtiles,nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 65 MITCOUPLER_REGISTER 
       j0=ibuf(5)
./pkg/compon_communic/mitcoupler_register.F 83 MITCOUPLER_REGISTER 
       if (j0.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 84 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0
./pkg/compon_communic/mitcoupler_register.F 91 MITCOUPLER_REGISTER 
       if (j0+ny-1.gt.nny) then
./pkg/compon_communic/mitcoupler_register.F 92 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0