Symbol Description Uses
Jo 60


File Line number Procedure Code
./pkg/compon_communic/coupsend_r4tiles.F 20 COUPSEND_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4tiles.F 45 COUPSEND_R4TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 49 COUPSEND_R4TILES 
        r4buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r4tiles.F 58 COUPSEND_R4TILES 
          r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/comprecv_r8tiles.F 57 COMPRECV_R8TILES 
       Jo=int(0.5+r8buf(2))
./pkg/compon_communic/comprecv_r8tiles.F 63 COMPRECV_R8TILES 
       if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo'
./pkg/compon_communic/comprecv_r8tiles.F 6 COMPRECV_R8TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/couprecv_r8.F 21 COUPRECV_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8.F 68 COUPRECV_R8 
       Jo=int(0.5+r8buf(3))
./pkg/compon_communic/couprecv_r8.F 75 COUPRECV_R8 
       if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
./pkg/compon_communic/couprecv_r8.F 76 COUPRECV_R8 
        write(LogUnit,*) 'couprecv_r8tiles: Jo,Nj=',Jo,Nj
./pkg/compon_communic/couprecv_r8.F 91 COUPRECV_R8 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/coupsend_r8tiles.F 20 COUPSEND_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8tiles.F 45 COUPSEND_R8TILES 
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 49 COUPSEND_R8TILES 
        r8buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r8tiles.F 58 COUPSEND_R8TILES 
          r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/comprecv_r8.F 51 COMPRECV_R8 
      Jo=int(0.5+r8buf(2))
./pkg/compon_communic/comprecv_r8.F 57 COMPRECV_R8 
      if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r8: bad Jo'
./pkg/compon_communic/comprecv_r8.F 6 COMPRECV_R8 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/compsend_r4.F 16 COMPSEND_R4 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r4.F 24 COMPSEND_R4 
      Jo=my_tile_j0(1)
./pkg/compon_communic/compsend_r4.F 27 COMPSEND_R4 
      r4buf(3)=float(Jo)
./pkg/compon_communic/couprecv_r8tiles.F 104 COUPRECV_R8TILES 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 21 COUPRECV_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8tiles.F 73 COUPRECV_R8TILES 
       Jo=int(0.5+r8buf(3))
./pkg/compon_communic/couprecv_r8tiles.F 80 COUPRECV_R8TILES 
       if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
./pkg/compon_communic/couprecv_r8tiles.F 81 COUPRECV_R8TILES 
        write(LogUnit,*) 'couprecv_r8tiles: Jo,Nj=',Jo,Nj
./pkg/compon_communic/couprecv_r8tiles.F 86 COUPRECV_R8TILES 
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/comprecv_r4.F 51 COMPRECV_R4 
      Jo=int(0.5+r4buf(2))
./pkg/compon_communic/comprecv_r4.F 57 COMPRECV_R4 
      if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r4: bad Jo'
./pkg/compon_communic/comprecv_r4.F 6 COMPRECV_R4 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/coupsend_r4.F 20 COUPSEND_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4.F 42 COUPSEND_R4 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 46 COUPSEND_R4 
       r4buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r4.F 55 COUPSEND_R4 
         r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/compsend_r8.F 16 COMPSEND_R8 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r8.F 24 COMPSEND_R8 
      Jo=my_tile_j0(1)
./pkg/compon_communic/compsend_r8.F 27 COMPSEND_R8 
      r8buf(3)=float(Jo)
./pkg/compon_communic/comprecv_r4tiles.F 57 COMPRECV_R4TILES 
       Jo=int(0.5+r4buf(2))
./pkg/compon_communic/comprecv_r4tiles.F 63 COMPRECV_R4TILES 
       if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r4tiles: bad Jo'
./pkg/compon_communic/comprecv_r4tiles.F 6 COMPRECV_R4TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/couprecv_r4tiles.F 104 COUPRECV_R4TILES 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F 21 COUPRECV_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4tiles.F 73 COUPRECV_R4TILES 
       Jo=int(0.5+r4buf(3))
./pkg/compon_communic/couprecv_r4tiles.F 80 COUPRECV_R4TILES 
       if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
./pkg/compon_communic/couprecv_r4tiles.F 81 COUPRECV_R4TILES 
        write(LogUnit,*) 'couprecv_r4tiles: Jo,Nj=',Jo,Nj
./pkg/compon_communic/couprecv_r4tiles.F 86 COUPRECV_R4TILES 
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r4.F 21 COUPRECV_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4.F 68 COUPRECV_R4 
       Jo=int(0.5+r4buf(3))
./pkg/compon_communic/couprecv_r4.F 75 COUPRECV_R4 
       if (Jo+Nj-1.gt.Ny .or. Jo.lt.1) then
./pkg/compon_communic/couprecv_r4.F 76 COUPRECV_R4 
        write(LogUnit,*) 'couprecv_r4tiles: Jo,Nj=',Jo,Nj
./pkg/compon_communic/couprecv_r4.F 91 COUPRECV_R4 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/coupsend_r8.F 20 COUPSEND_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8.F 42 COUPSEND_R8 
       Jo=component_tile_j0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 46 COUPSEND_R8 
       r8buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r8.F 55 COUPSEND_R8 
         r8buf(ij)=arr(Io+i-1,Jo+j-1)