Symbol Description Uses
j0 17


File Line number Procedure Code
./pkg/compon_communic/mitcomponent_register.F 15 MITCOMPONENT_REGISTER 
      integer nx,ny,i0,j0
./pkg/compon_communic/mitcomponent_register.F 35 MITCOMPONENT_REGISTER 
      ibuf(5)=j0
./pkg/compon_communic/mitcomponent_register.F 41 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/mitcoupler_register.F 103 MITCOUPLER_REGISTER 
       component_tile_j0(1,n,compind)=j0
./pkg/compon_communic/mitcoupler_register.F 30 MITCOUPLER_REGISTER 
      integer numtiles,nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 68 MITCOUPLER_REGISTER 
       j0=ibuf(5)
./pkg/compon_communic/mitcoupler_register.F 86 MITCOUPLER_REGISTER 
       if (j0.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 87 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0
./pkg/compon_communic/mitcoupler_register.F 94 MITCOUPLER_REGISTER 
       if (j0+ny-1.gt.nny) then
./pkg/compon_communic/mitcoupler_register.F 95 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: j0 = ',j0
./pkg/compon_communic/mitcoupler_tile_register.F 103 MITCOUPLER_TILE_REGISTER 
        component_tile_j0(j,n,compind) = j0
./pkg/compon_communic/mitcoupler_tile_register.F 107 MITCOUPLER_TILE_REGISTER 
     &     ' ; Ni,Nj=', nx, ny, ' ; Io,Jo=', i0, j0
./pkg/compon_communic/mitcoupler_tile_register.F 118 MITCOUPLER_TILE_REGISTER 
        if (j0.lt.1) then
./pkg/compon_communic/mitcoupler_tile_register.F 124 MITCOUPLER_TILE_REGISTER 
        if (j0+ny-1.gt.nny) then
./pkg/compon_communic/mitcoupler_tile_register.F 31 MITCOUPLER_TILE_REGISTER 
      integer nx, ny, i0, j0
./pkg/compon_communic/mitcoupler_tile_register.F 99 MITCOUPLER_TILE_REGISTER 
        j0 = ibuf(4)