Symbol Description Uses
Nj 90


File Line number Procedure Code
./pkg/compon_communic/comprecv_r4.F 10 COMPRECV_R4 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/comprecv_r4.F 24 COMPRECV_R4 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/comprecv_r4.F 5 COMPRECV_R4 
      subroutine COMPRECV_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r4.F 70 COMPRECV_R4 
      do j=1,Nj
./pkg/compon_communic/comprecv_r4.F 9 COMPRECV_R4 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r4tiles.F 10 COMPRECV_R4TILES 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty)
./pkg/compon_communic/comprecv_r4tiles.F 24 COMPRECV_R4TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/comprecv_r4tiles.F 5 COMPRECV_R4TILES 
      subroutine COMPRECV_R4TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r4tiles.F 77 COMPRECV_R4TILES 
       do j=1,Nj
./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 10 COMPRECV_R8 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/comprecv_r8.F 24 COMPRECV_R8 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/comprecv_r8.F 5 COMPRECV_R8 
      subroutine COMPRECV_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r8.F 70 COMPRECV_R8 
      do j=1,Nj
./pkg/compon_communic/comprecv_r8.F 9 COMPRECV_R8 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r8tiles.F 10 COMPRECV_R8TILES 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty)
./pkg/compon_communic/comprecv_r8tiles.F 24 COMPRECV_R8TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/comprecv_r8tiles.F 5 COMPRECV_R8TILES 
      subroutine COMPRECV_R8TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r8tiles.F 77 COMPRECV_R8TILES 
       do j=1,Nj
./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 10 COMPSEND_R4 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/compsend_r4.F 22 COMPSEND_R4 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/compsend_r4.F 31 COMPSEND_R4 
      r4buf(4)=float(Nj)
./pkg/compon_communic/compsend_r4.F 35 COMPSEND_R4 
      do j=1,Nj
./pkg/compon_communic/compsend_r4.F 43 COMPSEND_R4 
      count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4.F 5 COMPSEND_R4 
      subroutine COMPSEND_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r4.F 9 COMPSEND_R4 
      integer Ni,Oi,Nj,Oj
./pkg/compon_communic/compsend_r4tiles.F 10 COMPSEND_R4TILES 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj)
./pkg/compon_communic/compsend_r4tiles.F 22 COMPSEND_R4TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/compsend_r4tiles.F 33 COMPSEND_R4TILES 
       if (Nj.ne.my_tile_ny(bibj))
./pkg/compon_communic/compsend_r4tiles.F 45 COMPSEND_R4TILES 
       do j=1,Nj
./pkg/compon_communic/compsend_r4tiles.F 53 COMPSEND_R4TILES 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4tiles.F 5 COMPSEND_R4TILES 
      subroutine COMPSEND_R4TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r4tiles.F 9 COMPSEND_R4TILES 
      integer Ni,Oi,Nj,Oj,Nk,Ti,Tj
./pkg/compon_communic/compsend_r8.F 10 COMPSEND_R8 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/compsend_r8.F 22 COMPSEND_R8 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/compsend_r8.F 31 COMPSEND_R8 
      r8buf(4)=float(Nj)
./pkg/compon_communic/compsend_r8.F 35 COMPSEND_R8 
      do j=1,Nj
./pkg/compon_communic/compsend_r8.F 43 COMPSEND_R8 
      count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r8.F 5 COMPSEND_R8 
      subroutine COMPSEND_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r8.F 9 COMPSEND_R8 
      integer Ni,Oi,Nj,Oj
./pkg/compon_communic/compsend_r8tiles.F 10 COMPSEND_R8TILES 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj)
./pkg/compon_communic/compsend_r8tiles.F 22 COMPSEND_R8TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/compsend_r8tiles.F 33 COMPSEND_R8TILES 
       if (Nj.ne.my_tile_ny(bibj))
./pkg/compon_communic/compsend_r8tiles.F 45 COMPSEND_R8TILES 
       do j=1,Nj
./pkg/compon_communic/compsend_r8tiles.F 53 COMPSEND_R8TILES 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r8tiles.F 5 COMPSEND_R8TILES 
      subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r8tiles.F 9 COMPSEND_R8TILES 
      integer Ni,Oi,Nj,Oj,Nk,Ti,Tj
./pkg/compon_communic/couprecv_r4.F 24 COUPRECV_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4.F 72 COUPRECV_R4 
       Nj=int(0.5+r4buf(4))
./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 91 COUPRECV_R4 
       do j=1,Nj
./pkg/compon_communic/couprecv_r4tiles.F 104 COUPRECV_R4TILES 
       do j=1,Nj
./pkg/compon_communic/couprecv_r4tiles.F 24 COUPRECV_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4tiles.F 77 COUPRECV_R4TILES 
       Nj=int(0.5+r4buf(4))
./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 93 COUPRECV_R4TILES 
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/couprecv_r8.F 24 COUPRECV_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8.F 72 COUPRECV_R8 
       Nj=int(0.5+r8buf(4))
./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 91 COUPRECV_R8 
       do j=1,Nj
./pkg/compon_communic/couprecv_r8tiles.F 104 COUPRECV_R8TILES 
       do j=1,Nj
./pkg/compon_communic/couprecv_r8tiles.F 24 COUPRECV_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8tiles.F 77 COUPRECV_R8TILES 
       Nj=int(0.5+r8buf(4))
./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 93 COUPRECV_R8TILES 
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/coupsend_r4.F 25 COUPSEND_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4.F 49 COUPSEND_R4 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 53 COUPSEND_R4 
       r4buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r4.F 57 COUPSEND_R4 
       do j=1,Nj
./pkg/compon_communic/coupsend_r4.F 65 COUPSEND_R4 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/coupsend_r4tiles.F 25 COUPSEND_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4tiles.F 52 COUPSEND_R4TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 56 COUPSEND_R4TILES 
        r4buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r4tiles.F 60 COUPSEND_R4TILES 
        do j=1,Nj
./pkg/compon_communic/coupsend_r4tiles.F 68 COUPSEND_R4TILES 
        count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/coupsend_r8.F 25 COUPSEND_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8.F 49 COUPSEND_R8 
       Nj=component_tile_ny(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 53 COUPSEND_R8 
       r8buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r8.F 57 COUPSEND_R8 
       do j=1,Nj
./pkg/compon_communic/coupsend_r8.F 65 COUPSEND_R8 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/coupsend_r8tiles.F 25 COUPSEND_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8tiles.F 52 COUPSEND_R8TILES 
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 56 COUPSEND_R8TILES 
        r8buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r8tiles.F 60 COUPSEND_R8TILES 
        do j=1,Nj
./pkg/compon_communic/coupsend_r8tiles.F 68 COUPSEND_R8TILES 
        count=HEADER_SIZE+Ni*Nj