Symbol Description Uses
Nj 90


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 47 COUPSEND_R4TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 51 COUPSEND_R4TILES 
        r4buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r4tiles.F 55 COUPSEND_R4TILES 
        do j=1,Nj
./pkg/compon_communic/coupsend_r4tiles.F 63 COUPSEND_R4TILES 
        count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/comprecv_r8tiles.F 21 COMPRECV_R8TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/comprecv_r8tiles.F 2 COMPRECV_R8TILES 
      subroutine COMPRECV_R8TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r8tiles.F 6 COMPRECV_R8TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/comprecv_r8tiles.F 74 COMPRECV_R8TILES 
       do j=1,Nj
./pkg/compon_communic/comprecv_r8tiles.F 7 COMPRECV_R8TILES 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty)
./pkg/compon_communic/couprecv_r8.F 21 COUPRECV_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8.F 69 COUPRECV_R8 
       Nj=int(0.5+r8buf(4))
./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 88 COUPRECV_R8 
       do j=1,Nj
./pkg/compon_communic/coupsend_r8tiles.F 20 COUPSEND_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8tiles.F 47 COUPSEND_R8TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 51 COUPSEND_R8TILES 
        r8buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r8tiles.F 55 COUPSEND_R8TILES 
        do j=1,Nj
./pkg/compon_communic/coupsend_r8tiles.F 63 COUPSEND_R8TILES 
        count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/comprecv_r8.F 21 COMPRECV_R8 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/comprecv_r8.F 2 COMPRECV_R8 
      subroutine COMPRECV_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r8.F 67 COMPRECV_R8 
      do j=1,Nj
./pkg/compon_communic/comprecv_r8.F 6 COMPRECV_R8 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r8.F 7 COMPRECV_R8 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/compsend_r4.F 19 COMPSEND_R4 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/compsend_r4.F 28 COMPSEND_R4 
      r4buf(4)=float(Nj)
./pkg/compon_communic/compsend_r4.F 2 COMPSEND_R4 
      subroutine COMPSEND_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r4.F 32 COMPSEND_R4 
      do j=1,Nj
./pkg/compon_communic/compsend_r4.F 40 COMPSEND_R4 
      count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4.F 6 COMPSEND_R4 
      integer Ni,Oi,Nj,Oj
./pkg/compon_communic/compsend_r4.F 7 COMPSEND_R4 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/compsend_r8tiles.F 19 COMPSEND_R8TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/compsend_r8tiles.F 2 COMPSEND_R8TILES 
      subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r8tiles.F 30 COMPSEND_R8TILES 
       if (Nj.ne.my_tile_ny(bibj))
./pkg/compon_communic/compsend_r8tiles.F 42 COMPSEND_R8TILES 
       do j=1,Nj
./pkg/compon_communic/compsend_r8tiles.F 50 COMPSEND_R8TILES 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r8tiles.F 6 COMPSEND_R8TILES 
      integer Ni,Oi,Nj,Oj,Nk,Ti,Tj
./pkg/compon_communic/compsend_r8tiles.F 7 COMPSEND_R8TILES 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj)
./pkg/compon_communic/couprecv_r8tiles.F 101 COUPRECV_R8TILES 
       do j=1,Nj
./pkg/compon_communic/couprecv_r8tiles.F 21 COUPRECV_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8tiles.F 74 COUPRECV_R8TILES 
       Nj=int(0.5+r8buf(4))
./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 90 COUPRECV_R8TILES 
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/comprecv_r4.F 21 COMPRECV_R4 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/comprecv_r4.F 2 COMPRECV_R4 
      subroutine COMPRECV_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r4.F 67 COMPRECV_R4 
      do j=1,Nj
./pkg/compon_communic/comprecv_r4.F 6 COMPRECV_R4 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r4.F 7 COMPRECV_R4 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/coupsend_r4.F 20 COUPSEND_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4.F 44 COUPSEND_R4 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 48 COUPSEND_R4 
       r4buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r4.F 52 COUPSEND_R4 
       do j=1,Nj
./pkg/compon_communic/coupsend_r4.F 60 COUPSEND_R4 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4tiles.F 19 COMPSEND_R4TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/compsend_r4tiles.F 2 COMPSEND_R4TILES 
      subroutine COMPSEND_R4TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r4tiles.F 30 COMPSEND_R4TILES 
       if (Nj.ne.my_tile_ny(bibj))
./pkg/compon_communic/compsend_r4tiles.F 42 COMPSEND_R4TILES 
       do j=1,Nj
./pkg/compon_communic/compsend_r4tiles.F 50 COMPSEND_R4TILES 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4tiles.F 6 COMPSEND_R4TILES 
      integer Ni,Oi,Nj,Oj,Nk,Ti,Tj
./pkg/compon_communic/compsend_r4tiles.F 7 COMPSEND_R4TILES 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj)
./pkg/compon_communic/compsend_r8.F 19 COMPSEND_R8 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/compsend_r8.F 28 COMPSEND_R8 
      r8buf(4)=float(Nj)
./pkg/compon_communic/compsend_r8.F 2 COMPSEND_R8 
      subroutine COMPSEND_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r8.F 32 COMPSEND_R8 
      do j=1,Nj
./pkg/compon_communic/compsend_r8.F 40 COMPSEND_R8 
      count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r8.F 6 COMPSEND_R8 
      integer Ni,Oi,Nj,Oj
./pkg/compon_communic/compsend_r8.F 7 COMPSEND_R8 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/comprecv_r4tiles.F 21 COMPRECV_R4TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/comprecv_r4tiles.F 2 COMPRECV_R4TILES 
      subroutine COMPRECV_R4TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r4tiles.F 6 COMPRECV_R4TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/comprecv_r4tiles.F 74 COMPRECV_R4TILES 
       do j=1,Nj
./pkg/compon_communic/comprecv_r4tiles.F 7 COMPRECV_R4TILES 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty)
./pkg/compon_communic/couprecv_r4tiles.F 101 COUPRECV_R4TILES 
       do j=1,Nj
./pkg/compon_communic/couprecv_r4tiles.F 21 COUPRECV_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4tiles.F 74 COUPRECV_R4TILES 
       Nj=int(0.5+r4buf(4))
./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 90 COUPRECV_R4TILES 
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/couprecv_r4.F 21 COUPRECV_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4.F 69 COUPRECV_R4 
       Nj=int(0.5+r4buf(4))
./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 88 COUPRECV_R4 
       do j=1,Nj
./pkg/compon_communic/coupsend_r8.F 20 COUPSEND_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8.F 44 COUPSEND_R8 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 48 COUPSEND_R8 
       r8buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r8.F 52 COUPSEND_R8 
       do j=1,Nj
./pkg/compon_communic/coupsend_r8.F 60 COUPSEND_R8 
       count=HEADER_SIZE+Ni*Nj