Symbol Description Uses
is 136


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2197 CLDFLX 
      integer i,j,k,ih,im,is
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2296 CLDFLX 
      do 20 is=1,2
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2300 CLDFLX 
         rra(i,j,np+1,1,is)=rr(i,j,np+1,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2301 CLDFLX 
         rxa(i,j,np+1,1,is)=rs(i,j,np+1,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2302 CLDFLX 
         rra(i,j,np+1,2,is)=rr(i,j,np+1,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2303 CLDFLX 
         rxa(i,j,np+1,2,is)=rs(i,j,np+1,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2310 CLDFLX 
          denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2311 CLDFLX 
          rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2312 CLDFLX 
     *        *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2313 CLDFLX 
          rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2314 CLDFLX 
     *        *rxa(i,j,k+1,1,is)*denm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2315 CLDFLX 
          rra(i,j,k,2,is)=rra(i,j,k,1,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2316 CLDFLX 
          rxa(i,j,k,2,is)=rxa(i,j,k,1,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2328 CLDFLX 
          denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2329 CLDFLX 
          rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2330 CLDFLX 
     *        *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2331 CLDFLX 
          rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2332 CLDFLX 
     *        *rxa(i,j,k+1,im,is)*denm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2389 CLDFLX 
      do 100 is=1,2
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2393 CLDFLX 
         if(is.eq.1) then
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2418 CLDFLX 
          denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) )
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2419 CLDFLX 
          tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2420 CLDFLX 
          tta(i,j,k,ih,im)=  tda(i,j,k-1,ih,im)*tt(i,j,k,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2421 CLDFLX 
     *         +(tda(i,j,k-1,ih,im)*rr(i,j,k,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2423 CLDFLX 
          rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2434 CLDFLX 
          denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2435 CLDFLX 
          rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2436 CLDFLX 
     *        *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2437 CLDFLX 
          rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2438 CLDFLX 
     *        *rxa(i,j,k+1,im,is)*denm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2452 CLDFLX 
         denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2454 CLDFLX 
         xx = tda(i,j,k-1,ih,im)*rra(i,j,k,im,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2456 CLDFLX 
         fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2464 CLDFLX 
         flxdn(i,j,1)=1.0-rra(i,j,1,im,is)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2473 CLDFLX 
           if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then
./pkg/mnc/mnc_var.F 118 MNC_VAR_INIT_ANY 
      integer i,j,k, n, indf,indv, fid, nd, ngrid, is,ie, err
./pkg/mnc/mnc_var.F 167 MNC_VAR_INIT_ANY 
          is = mnc_f_info(indf,(j+1))
./pkg/mnc/mnc_var.F 170 MNC_VAR_INIT_ANY 
          DO k = is,ie
./pkg/mnc/mnc_cw_init.F 53 MNC_CW_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
./pkg/mnc/mnc_cw_init.F 81 MNC_CW_INIT 
        DO is = 1,3
./pkg/mnc/mnc_cw_init.F 85 MNC_CW_INIT 
            ihsub = is
./pkg/mnc/mnc_cw_init.F 88 MNC_CW_INIT 
              IF ((is .EQ. 1) .AND. (ih .EQ. 1)) THEN
./lsopt/instore.F 17 INSTORE 
      isize = is
./lsopt/instore.F 1 INSTORE 
      subroutine INSTORE( n, fc, gnorm0, is, m, jmin, jmax,
./lsopt/instore.F 6 INSTORE 
      integer n, is, m, jmin, jmax, ifail, rectmp
./pkg/fizhi/fizhi_swrad.F 2196 CLDFLX 
      integer i,j,k,ih,im,is
./pkg/fizhi/fizhi_swrad.F 2295 CLDFLX 
      do 20 is=1,2
./pkg/fizhi/fizhi_swrad.F 2299 CLDFLX 
         rra(i,j,np+1,1,is)=rr(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2300 CLDFLX 
         rxa(i,j,np+1,1,is)=rs(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2301 CLDFLX 
         rra(i,j,np+1,2,is)=rr(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2302 CLDFLX 
         rxa(i,j,np+1,2,is)=rs(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2309 CLDFLX 
          denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) )
./pkg/fizhi/fizhi_swrad.F 2310 CLDFLX 
          rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2311 CLDFLX 
     *        *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm
./pkg/fizhi/fizhi_swrad.F 2312 CLDFLX 
          rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2313 CLDFLX 
     *        *rxa(i,j,k+1,1,is)*denm
./pkg/fizhi/fizhi_swrad.F 2314 CLDFLX 
          rra(i,j,k,2,is)=rra(i,j,k,1,is)
./pkg/fizhi/fizhi_swrad.F 2315 CLDFLX 
          rxa(i,j,k,2,is)=rxa(i,j,k,1,is)
./pkg/fizhi/fizhi_swrad.F 2327 CLDFLX 
          denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) )
./pkg/fizhi/fizhi_swrad.F 2328 CLDFLX 
          rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F 2329 CLDFLX 
     *        *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm
./pkg/fizhi/fizhi_swrad.F 2330 CLDFLX 
          rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F 2331 CLDFLX 
     *        *rxa(i,j,k+1,im,is)*denm
./pkg/fizhi/fizhi_swrad.F 2388 CLDFLX 
      do 100 is=1,2
./pkg/fizhi/fizhi_swrad.F 2392 CLDFLX 
         if(is.eq.1) then
./pkg/fizhi/fizhi_swrad.F 2417 CLDFLX 
          denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) )
./pkg/fizhi/fizhi_swrad.F 2418 CLDFLX 
          tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2419 CLDFLX 
          tta(i,j,k,ih,im)=  tda(i,j,k-1,ih,im)*tt(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2420 CLDFLX 
     *         +(tda(i,j,k-1,ih,im)*rr(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2422 CLDFLX 
          rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2433 CLDFLX 
          denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is))
./pkg/fizhi/fizhi_swrad.F 2434 CLDFLX 
          rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F 2435 CLDFLX 
     *        *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm
./pkg/fizhi/fizhi_swrad.F 2436 CLDFLX 
          rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F 2437 CLDFLX 
     *        *rxa(i,j,k+1,im,is)*denm
./pkg/fizhi/fizhi_swrad.F 2451 CLDFLX 
         denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im))
./pkg/fizhi/fizhi_swrad.F 2453 CLDFLX 
         xx = tda(i,j,k-1,ih,im)*rra(i,j,k,im,is)
./pkg/fizhi/fizhi_swrad.F 2455 CLDFLX 
         fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm
./pkg/fizhi/fizhi_swrad.F 2463 CLDFLX 
         flxdn(i,j,1)=1.0-rra(i,j,1,im,is)
./pkg/fizhi/fizhi_swrad.F 2472 CLDFLX 
           if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then
./pkg/fizhi/fizhi_mnc_init.F 38 FIZHI_MNC_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
./pkg/fizhi/fizhi_mnc_init.F 68 FIZHI_MNC_INIT 
        DO is = 1,3
./pkg/fizhi/fizhi_mnc_init.F 72 FIZHI_MNC_INIT 
            ihsub = is
./pkg/fizhi/fizhi_mnc_init.F 75 FIZHI_MNC_INIT 
              IF ((is .EQ. 1) .AND. (ih .EQ. 1)) THEN
./pkg/land/land_mnc_init.F 57 LAND_MNC_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
./pkg/land/land_mnc_init.F 85 LAND_MNC_INIT 
        DO is = 1,3
./pkg/land/land_mnc_init.F 89 LAND_MNC_INIT 
            ihsub = is
./pkg/land/land_mnc_init.F 92 LAND_MNC_INIT 
              IF ((is .EQ. 1) .AND. (ih .EQ. 1)) THEN