Symbol Description Uses
Jo 60


File Line number Procedure Code
./pkg/compon_communic/comprecv_r4.F 54 COMPRECV_R4 
      Jo=int(0.5+r4buf(2))
./pkg/compon_communic/comprecv_r4.F 60 COMPRECV_R4 
      if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r4: bad Jo'
./pkg/compon_communic/comprecv_r4.F 9 COMPRECV_R4 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r4tiles.F 60 COMPRECV_R4TILES 
       Jo=int(0.5+r4buf(2))
./pkg/compon_communic/comprecv_r4tiles.F 66 COMPRECV_R4TILES 
       if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r4tiles: bad Jo'
./pkg/compon_communic/comprecv_r4tiles.F 9 COMPRECV_R4TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/comprecv_r8.F 54 COMPRECV_R8 
      Jo=int(0.5+r8buf(2))
./pkg/compon_communic/comprecv_r8.F 60 COMPRECV_R8 
      if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r8: bad Jo'
./pkg/compon_communic/comprecv_r8.F 9 COMPRECV_R8 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r8tiles.F 60 COMPRECV_R8TILES 
       Jo=int(0.5+r8buf(2))
./pkg/compon_communic/comprecv_r8tiles.F 66 COMPRECV_R8TILES 
       if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo'
./pkg/compon_communic/comprecv_r8tiles.F 9 COMPRECV_R8TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/compsend_r4.F 19 COMPSEND_R4 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r4.F 27 COMPSEND_R4 
      Jo=my_tile_j0(1)
./pkg/compon_communic/compsend_r4.F 30 COMPSEND_R4 
      r4buf(3)=float(Jo)
./pkg/compon_communic/compsend_r8.F 19 COMPSEND_R8 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r8.F 27 COMPSEND_R8 
      Jo=my_tile_j0(1)
./pkg/compon_communic/compsend_r8.F 30 COMPSEND_R8 
      r8buf(3)=float(Jo)
./pkg/compon_communic/couprecv_r4.F 24 COUPRECV_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4.F 71 COUPRECV_R4 
       Jo=int(0.5+r4buf(3))
./pkg/compon_communic/couprecv_r4.F 78 COUPRECV_R4 
       if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
./pkg/compon_communic/couprecv_r4.F 79 COUPRECV_R4 
        write(LogUnit,*) 'couprecv_r4tiles: Jo,Nj=',Jo,Nj
./pkg/compon_communic/couprecv_r4.F 94 COUPRECV_R4 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F 107 COUPRECV_R4TILES 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F 24 COUPRECV_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4tiles.F 76 COUPRECV_R4TILES 
       Jo=int(0.5+r4buf(3))
./pkg/compon_communic/couprecv_r4tiles.F 83 COUPRECV_R4TILES 
       if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
./pkg/compon_communic/couprecv_r4tiles.F 84 COUPRECV_R4TILES 
        write(LogUnit,*) 'couprecv_r4tiles: Jo,Nj=',Jo,Nj
./pkg/compon_communic/couprecv_r4tiles.F 89 COUPRECV_R4TILES 
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8.F 24 COUPRECV_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8.F 71 COUPRECV_R8 
       Jo=int(0.5+r8buf(3))
./pkg/compon_communic/couprecv_r8.F 78 COUPRECV_R8 
       if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
./pkg/compon_communic/couprecv_r8.F 79 COUPRECV_R8 
        write(LogUnit,*) 'couprecv_r8tiles: Jo,Nj=',Jo,Nj
./pkg/compon_communic/couprecv_r8.F 94 COUPRECV_R8 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 107 COUPRECV_R8TILES 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 24 COUPRECV_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8tiles.F 76 COUPRECV_R8TILES 
       Jo=int(0.5+r8buf(3))
./pkg/compon_communic/couprecv_r8tiles.F 83 COUPRECV_R8TILES 
       if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
./pkg/compon_communic/couprecv_r8tiles.F 84 COUPRECV_R8TILES 
        write(LogUnit,*) 'couprecv_r8tiles: Jo,Nj=',Jo,Nj
./pkg/compon_communic/couprecv_r8tiles.F 89 COUPRECV_R8TILES 
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/coupsend_r4.F 25 COUPSEND_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4.F 47 COUPSEND_R4 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 51 COUPSEND_R4 
       r4buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r4.F 60 COUPSEND_R4 
         r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r4tiles.F 25 COUPSEND_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4tiles.F 50 COUPSEND_R4TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 54 COUPSEND_R4TILES 
        r4buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r4tiles.F 63 COUPSEND_R4TILES 
          r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8.F 25 COUPSEND_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8.F 47 COUPSEND_R8 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 51 COUPSEND_R8 
       r8buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r8.F 60 COUPSEND_R8 
         r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8tiles.F 25 COUPSEND_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8tiles.F 50 COUPSEND_R8TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 54 COUPSEND_R8TILES 
        r8buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r8tiles.F 63 COUPSEND_R8TILES 
          r8buf(ij)=arr(Io+i-1,Jo+j-1)