Symbol Description Uses
nx Maximum number of wet levels in each column 74


File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1420 IRRAD 
           call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem,
./pkg/fizhi/fizhi_lwrad.F 1424 IRRAD 
           call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem,
./pkg/fizhi/fizhi_lwrad.F 1429 IRRAD 
           call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem,
./pkg/fizhi/fizhi_lwrad.F 1454 IRRAD 
          call TABLUP(k1,k2,m,n,np,nx,nc,nt,sco3,scopre,scotem,
./pkg/fizhi/fizhi_lwrad.F 1473 IRRAD 
          call TABLUP(k1,k2,m,n,np,nx,no,nt,sco3,scopre,scotem,
./pkg/fizhi/fizhi_lwrad.F 2464 TABLUP 
      subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1,
./pkg/fizhi/fizhi_lwrad.F 2503 TABLUP 
      integer k1,k2,m,n,np,nx,nh,nt,i,j
./pkg/fizhi/fizhi_lwrad.F 2509 TABLUP 
      _RL coef1(nx,nh,nt),coef2(nx,nh,nt),coef3(nx,nh,nt)
./pkg/fizhi/fizhi_lwrad.F 2543 TABLUP 
        ip=min(ip,nx-1)
./pkg/fizhi/fizhi_lwrad.F 562 IRRAD 
      integer nx,no,nc,nh,nt
./pkg/fizhi/fizhi_lwrad.F 564 IRRAD 
      parameter (nx=26,no=21,nc=24,nh=31,nt=7)
./pkg/fizhi/fizhi_lwrad.F 614 IRRAD 
      _RL c1 (nx,nc,nt),c2 (nx,nc,nt),c3 (nx,nc,nt)
./pkg/fizhi/fizhi_lwrad.F 615 IRRAD 
      _RL o1 (nx,no,nt),o2 (nx,no,nt),o3 (nx,no,nt)
./pkg/fizhi/fizhi_lwrad.F 616 IRRAD 
      _RL h11(nx,nh,nt),h12(nx,nh,nt),h13(nx,nh,nt)
./pkg/fizhi/fizhi_lwrad.F 617 IRRAD 
      _RL h21(nx,nh,nt),h22(nx,nh,nt),h23(nx,nh,nt)
./pkg/fizhi/fizhi_lwrad.F 618 IRRAD 
      _RL h81(nx,nh,nt),h82(nx,nh,nt),h83(nx,nh,nt)
./pkg/fizhi/fizhi_lwrad.F 804 IRRAD 
         do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 812 IRRAD 
         do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 824 IRRAD 
          do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 831 IRRAD 
          do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 850 IRRAD 
         do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 857 IRRAD 
          do ip=1,nx
./verification/natl_box/results/comp_orig.F 12 NO PROCEDURE 
      integer nx, ny, nrec
./verification/natl_box/results/comp_orig.F 13 NO PROCEDURE 
      parameter (nx=20, ny=16, nrec=4)
./verification/natl_box/results/comp_orig.F 17 NO PROCEDURE 
      real*4 fld1(nx,ny), fld2(nx,ny), maxdiff
./verification/natl_box/results/comp_orig.F 21 NO PROCEDURE 
      lBuffer1=nx*ny*4
./verification/natl_box/results/comp_orig.F 22 NO PROCEDURE 
      lBuffer2=nx*ny*4
./verification/natl_box/results/comp_orig.F 30 NO PROCEDURE 
         read(1,rec=irec) ((fld1(i,j),i=1,nx),j=1,ny)
./verification/natl_box/results/comp_orig.F 31 NO PROCEDURE 
         read(2,rec=irec) ((fld2(i,j),i=1,nx),j=1,ny)
./verification/natl_box/results/comp_orig.F 32 NO PROCEDURE 
         do i=1,nx
./pkg/admtlm/admtlm_metric.F 70 ADMTLM_METRIC 
      myMetric = myMetric/(nx*ny*(4*Nr+1))
./pkg/compon_communic/comprecv_r4.F 20 COMPRECV_R4 
      integer i,j,ij,nx,ny
./pkg/compon_communic/comprecv_r4.F 55 COMPRECV_R4 
      nx=int(0.5+r4buf(3))
./pkg/compon_communic/comprecv_r4.F 61 COMPRECV_R4 
      if (nx.ne.my_tile_nx(1)) stop 'comprecv_r4: bad nx'
./pkg/compon_communic/comprecv_r4tiles.F 20 COMPRECV_R4TILES 
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r4tiles.F 61 COMPRECV_R4TILES 
       nx=int(0.5+r4buf(3))
./pkg/compon_communic/comprecv_r4tiles.F 67 COMPRECV_R4TILES 
       if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r4tiles: bad nx'
./pkg/compon_communic/comprecv_r8.F 20 COMPRECV_R8 
      integer i,j,ij,nx,ny
./pkg/compon_communic/comprecv_r8.F 55 COMPRECV_R8 
      nx=int(0.5+r8buf(3))
./pkg/compon_communic/comprecv_r8.F 61 COMPRECV_R8 
      if (nx.ne.my_tile_nx(1)) stop 'comprecv_r8: bad nx'
./pkg/compon_communic/comprecv_r8tiles.F 20 COMPRECV_R8TILES 
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r8tiles.F 61 COMPRECV_R8TILES 
       nx=int(0.5+r8buf(3))
./pkg/compon_communic/comprecv_r8tiles.F 67 COMPRECV_R8TILES 
       if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r8tiles: bad nx'
./pkg/compon_communic/mitcomponent_register.F 15 MITCOMPONENT_REGISTER 
      integer nx,ny,i0,j0
./pkg/compon_communic/mitcomponent_register.F 32 MITCOMPONENT_REGISTER 
      ibuf(2)=nx
./pkg/compon_communic/mitcomponent_register.F 38 MITCOMPONENT_REGISTER 
      my_tile_nx(1)=nx
./pkg/compon_communic/mitcomponent_register.F 5 MITCOMPONENT_REGISTER 
      subroutine MITCOMPONENT_REGISTER( nx, ny, i0, j0 )
./pkg/compon_communic/mitcoupler_register.F 100 MITCOUPLER_REGISTER 
       component_tile_nx(1,n,compind)=nx
./pkg/compon_communic/mitcoupler_register.F 30 MITCOUPLER_REGISTER 
      integer numtiles,nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 65 MITCOUPLER_REGISTER 
       nx=ibuf(2)
./pkg/compon_communic/mitcoupler_register.F 74 MITCOUPLER_REGISTER 
       if (nx.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 75 MITCOUPLER_REGISTER 
        write(LogUnit,*) 'MITCOUPLER_register: nx = ',nx
./pkg/compon_communic/mitcoupler_register.F 90 MITCOUPLER_REGISTER 
       if (i0+nx-1.gt.nnx) then
./pkg/compon_communic/mitcoupler_tile_register.F 100 MITCOUPLER_TILE_REGISTER 
        component_tile_nx(j,n,compind) = nx
./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 109 MITCOUPLER_TILE_REGISTER 
        if (nx.lt.1) then
./pkg/compon_communic/mitcoupler_tile_register.F 121 MITCOUPLER_TILE_REGISTER 
        if (i0+nx-1.gt.nnx) then
./pkg/compon_communic/mitcoupler_tile_register.F 31 MITCOUPLER_TILE_REGISTER 
      integer nx, ny, i0, j0
./pkg/compon_communic/mitcoupler_tile_register.F 96 MITCOUPLER_TILE_REGISTER 
        nx = ibuf(1)
./pkg/ctrl/ctrl_set_pack_yz.F 263 CTRL_SET_PACK_YZ 
      do irec = nrec_nl*nx+1, ncvarrecs(ivartype)
./pkg/ctrl/ctrl_set_unpack_yz.F 278 CTRL_SET_UNPACK_YZ 
      do irec = nrec_nl*nx+1,ncvarrecs(ivartype)