Symbol Description Uses
ia 77


File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 120 PASTE 
      integer ia,ib,L,K
./pkg/fizhi/fizhi_utils.F 138 PSTBMP 
      integer ia,ib,L,K
./pkg/fizhi/fizhi_utils.F 156 STRINT 
      integer ia,ib,L,K
./pkg/fizhi/fizhi_utils.F 391 STRIPIT 
      subroutine STRIPIT(a,b,irun,ia,ib,l,k)
./pkg/fizhi/fizhi_utils.F 393 STRIPIT 
      integer ia,ib,irun,l,k
./pkg/fizhi/fizhi_utils.F 394 STRIPIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 419 STRIPITINT 
      subroutine STRIPITINT(a,b,irun,ia,ib,l,k)
./pkg/fizhi/fizhi_utils.F 421 STRIPITINT 
      integer ia,ib,irun,l,k,a(ia,l),b(ib,l)
./pkg/fizhi/fizhi_utils.F 446 PASTIT 
      subroutine PASTIT(b,a,ib,ia,irun,L,k)
./pkg/fizhi/fizhi_utils.F 448 PASTIT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 450 PASTIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 463 PSTBITINT 
      subroutine PSTBITINT(b,a,ib,ia,irun,l,k)
./pkg/fizhi/fizhi_utils.F 465 PSTBITINT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 466 PSTBITINT 
      _RL a(ia,l)
./pkg/fizhi/fizhi_utils.F 482 PSTBMPIT 
      subroutine PSTBMPIT(b,a,ib,ia,irun,l,k)
./pkg/fizhi/fizhi_utils.F 484 PSTBMPIT 
      integer ib,ia,L,k,irun,Lena,offset
./pkg/fizhi/fizhi_utils.F 485 PSTBMPIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 499 STRIP2TILE 
      subroutine STRIP2TILE(a,indx,b,irun,ia,ib,levs,npeice)
./pkg/fizhi/fizhi_utils.F 519 STRIP2TILE 
      integer ia,ib,irun,levs,npeice
./pkg/fizhi/fizhi_utils.F 520 STRIP2TILE 
      _RL a(ia,levs), b(ib,levs)
./pkg/fizhi/fizhi_utils.F 546 PASTE2GRD_OLD 
      subroutine PASTE2GRD_OLD(b,indx,chfr,ib,numpts,a,ia,levs,npeice)
./pkg/fizhi/fizhi_utils.F 573 PASTE2GRD_OLD 
      integer ia,ib,levs,numpts,npeice
./pkg/fizhi/fizhi_utils.F 575 PASTE2GRD_OLD 
      _RL a(ia,levs), b(ib,levs), chfr(ib)
./pkg/fizhi/fizhi_utils.F 590 PASTE2GRD 
      subroutine PASTE2GRD (b,indx,chfr,ib,numpts,a,ia,levs,npeice,
./pkg/fizhi/fizhi_utils.F 619 PASTE2GRD 
      integer ia,ib,levs,numpts,npeice
./pkg/fizhi/fizhi_utils.F 621 PASTE2GRD 
      _RL a(ia,levs), b(ib,levs), chfr(ib)
./pkg/fizhi/fizhi_utils.F 62 STRIP 
      integer ia,ib,L,K
./pkg/fizhi/fizhi_utils.F 91 STRIPINT 
      integer ia,ib,L,K
./pkg/fizhi/fizhi_swrad.F 1004 CLDSCALE 
      integer i,j,k,im,it,ia,kk
./pkg/fizhi/fizhi_swrad.F 1094 CLDSCALE 
           ia=int(fa+1.5)
./pkg/fizhi/fizhi_swrad.F 1098 CLDSCALE 
           ia=max(ia,2)
./pkg/fizhi/fizhi_swrad.F 1102 CLDSCALE 
           ia=min(ia,na-1)
./pkg/fizhi/fizhi_swrad.F 1106 CLDSCALE 
           fa=fa-float(ia-1)
./pkg/fizhi/fizhi_swrad.F 1112 CLDSCALE 
           xai=    (-caib(im-1,it,ia)*(1.-fm)+
./pkg/fizhi/fizhi_swrad.F 1113 CLDSCALE 
     *      caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm)
./pkg/fizhi/fizhi_swrad.F 1115 CLDSCALE 
           xai=xai+(-caib(im,it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1116 CLDSCALE 
     *      caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft)
./pkg/fizhi/fizhi_swrad.F 1118 CLDSCALE 
           xai=xai+(-caib(im,it,ia-1)*(1.-fa)+
./pkg/fizhi/fizhi_swrad.F 1119 CLDSCALE 
     *     caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa)
./pkg/fizhi/fizhi_swrad.F 1121 CLDSCALE 
           xai= xai-2.*caib(im,it,ia)
./pkg/fizhi/fizhi_swrad.F 1130 CLDSCALE 
           xai=    (-caif(it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1131 CLDSCALE 
     *      caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)
./pkg/fizhi/fizhi_swrad.F 1133 CLDSCALE 
           xai=xai+(-caif(it,ia-1)*(1.-fa)+
./pkg/fizhi/fizhi_swrad.F 1134 CLDSCALE 
     *      caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa)
./pkg/fizhi/fizhi_swrad.F 1136 CLDSCALE 
           xai= xai-caif(it,ia)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1004 CLDSCALE 
      integer i,j,k,im,it,ia,kk
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1094 CLDSCALE 
           ia=int(fa+1.5)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1098 CLDSCALE 
           ia=max(ia,2)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1102 CLDSCALE 
           ia=min(ia,na-1)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1106 CLDSCALE 
           fa=fa-float(ia-1)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1112 CLDSCALE 
           xai=    (-caib(im-1,it,ia)*(1.-fm)+
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1113 CLDSCALE 
     *      caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1115 CLDSCALE 
           xai=xai+(-caib(im,it-1,ia)*(1.-ft)+
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1116 CLDSCALE 
     *      caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1118 CLDSCALE 
           xai=xai+(-caib(im,it,ia-1)*(1.-fa)+
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1119 CLDSCALE 
     *     caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1121 CLDSCALE 
           xai= xai-2.*caib(im,it,ia)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1130 CLDSCALE 
           xai=    (-caif(it-1,ia)*(1.-ft)+
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1131 CLDSCALE 
     *      caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1133 CLDSCALE 
           xai=xai+(-caif(it,ia-1)*(1.-fa)+
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1134 CLDSCALE 
     *      caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa)
./verification/fizhi-cs-aqualev20/code/fizhi_swrad.F 1136 CLDSCALE 
           xai= xai-caif(it,ia)