Symbol Description Uses
ia 63


File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1012 CLDSCALE 
      integer i,j,k,im,it,ia,kk
./pkg/fizhi/fizhi_swrad.F 1102 CLDSCALE 
           ia=int(fa+1.5)
./pkg/fizhi/fizhi_swrad.F 1106 CLDSCALE 
           ia=max(ia,2)
./pkg/fizhi/fizhi_swrad.F 1110 CLDSCALE 
           ia=min(ia,na-1)
./pkg/fizhi/fizhi_swrad.F 1114 CLDSCALE 
           fa=fa-float(ia-1)
./pkg/fizhi/fizhi_swrad.F 1120 CLDSCALE 
           xai=    (-caib(im-1,it,ia)*(1.-fm)+
./pkg/fizhi/fizhi_swrad.F 1121 CLDSCALE 
     *      caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm)
./pkg/fizhi/fizhi_swrad.F 1123 CLDSCALE 
           xai=xai+(-caib(im,it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1124 CLDSCALE 
     *      caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft)
./pkg/fizhi/fizhi_swrad.F 1126 CLDSCALE 
           xai=xai+(-caib(im,it,ia-1)*(1.-fa)+
./pkg/fizhi/fizhi_swrad.F 1127 CLDSCALE 
     *     caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa)
./pkg/fizhi/fizhi_swrad.F 1129 CLDSCALE 
           xai= xai-2.*caib(im,it,ia)
./pkg/fizhi/fizhi_swrad.F 1138 CLDSCALE 
           xai=    (-caif(it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1139 CLDSCALE 
     *      caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)
./pkg/fizhi/fizhi_swrad.F 1141 CLDSCALE 
           xai=xai+(-caif(it,ia-1)*(1.-fa)+
./pkg/fizhi/fizhi_swrad.F 1142 CLDSCALE 
     *      caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa)
./pkg/fizhi/fizhi_swrad.F 1144 CLDSCALE 
           xai= xai-caif(it,ia)
./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/mnc/mnc_cw_cvars.F 423 MNC_CW_WRITE_CVAR 
        ia = ILNBLNK(long_name)
./pkg/mnc/mnc_cw_cvars.F 424 MNC_CW_WRITE_CVAR 
        IF ( ia .GT. 0 ) THEN
./pkg/mnc/mnc_cw_cvars.F 425 MNC_CW_WRITE_CVAR 
         err = NF_PUT_ATT_TEXT(fid, vid, 'long_name', ia, long_name)
./pkg/mnc/mnc_cw_cvars.F 431 MNC_CW_WRITE_CVAR 
        ia = ILNBLNK(units)
./pkg/mnc/mnc_cw_cvars.F 432 MNC_CW_WRITE_CVAR 
        IF ( ia .GT. 0 ) THEN
./pkg/mnc/mnc_cw_cvars.F 433 MNC_CW_WRITE_CVAR 
         err = NF_PUT_ATT_TEXT(fid, vid, 'units', ia, units)
./pkg/mnc/mnc_cw_cvars.F 439 MNC_CW_WRITE_CVAR 
        ia = ILNBLNK(positive)
./pkg/mnc/mnc_cw_cvars.F 440 MNC_CW_WRITE_CVAR 
        IF ( ia .GT. 0 ) THEN
./pkg/mnc/mnc_cw_cvars.F 441 MNC_CW_WRITE_CVAR 
         err = NF_PUT_ATT_TEXT(fid, vid, 'positive', ia, positive)
./pkg/mnc/mnc_cw_cvars.F 52 MNC_CW_WRITE_CVAR 
      integer MAX_LEN_NAME, ia