Symbol Description Uses
cc 68


File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1008 CLDSCALE 
      _RL  cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np)
./pkg/fizhi/fizhi_swrad.F 1035 CLDSCALE 
          cc(i,j,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1036 CLDSCALE 
          cc(i,j,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1037 CLDSCALE 
          cc(i,j,3)=0.0
./pkg/fizhi/fizhi_swrad.F 1044 CLDSCALE 
           cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F 1052 CLDSCALE 
           cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F 1060 CLDSCALE 
           cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F 1090 CLDSCALE 
           fa=fcld(i,j,k)/cc(i,j,kk)
./pkg/fizhi/fizhi_swrad.F 1160 SOLIR 
     *  ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir)
./pkg/fizhi/fizhi_swrad.F 1235 SOLIR 
      _RL  tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3)
./pkg/fizhi/fizhi_swrad.F 1538 SOLIR 
        call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,
./pkg/fizhi/fizhi_swrad.F 1570 SOLUV 
     *  ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc
./pkg/fizhi/fizhi_swrad.F 1657 SOLUV 
      _RL  tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3)
./pkg/fizhi/fizhi_swrad.F 1909 SOLUV 
        call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,
./pkg/fizhi/fizhi_swrad.F 2160 CLDFLX 
      subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,
./pkg/fizhi/fizhi_swrad.F 2200 CLDFLX 
      _RL  cc(m,n,3)
./pkg/fizhi/fizhi_swrad.F 2356 CLDFLX 
             ch(i,j)=1.0-cc(i,j,1)
./pkg/fizhi/fizhi_swrad.F 2366 CLDFLX 
             ch(i,j)=cc(i,j,1)
./pkg/fizhi/fizhi_swrad.F 2380 CLDFLX 
              cm(i,j)=ch(i,j)*(1.0-cc(i,j,2))
./pkg/fizhi/fizhi_swrad.F 2390 CLDFLX 
              cm(i,j)=ch(i,j)*cc(i,j,2)
./pkg/fizhi/fizhi_swrad.F 2404 CLDFLX 
             ct(i,j)=cm(i,j)*(1.0-cc(i,j,3))
./pkg/fizhi/fizhi_swrad.F 2414 CLDFLX 
             ct(i,j)=cm(i,j)*cc(i,j,3)
./pkg/fizhi/fizhi_swrad.F 788 SORAD 
      _RL  cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np)
./pkg/fizhi/fizhi_swrad.F 842 SORAD 
     *              cc,tauclb,tauclf)
./pkg/fizhi/fizhi_swrad.F 860 SORAD 
     *     ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir)
./pkg/fizhi/fizhi_swrad.F 865 SORAD 
     *     ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc
./pkg/fizhi/fizhi_swrad.F 960 CLDSCALE 
     *                     cc,tauclb,tauclf)
./pkg/generic_advdiff/gad_pqm_fun.F 14 NO PROCEDURE 
      LOGICAL FUNCTION QUADROOT(aa,bb,cc,xx)
./pkg/generic_advdiff/gad_pqm_fun.F 22 NO PROCEDURE 
          _RL aa,bb,cc
./pkg/generic_advdiff/gad_pqm_fun.F 31 NO PROCEDURE 
          sq = bb * bb - 4. _d 0 * aa * cc
./pkg/generic_advdiff/gad_pqm_fun.F 61 NO PROCEDURE 
              xx(1) =  - cc / bb
./pkg/generic_advdiff/gad_pqm_fun.F 62 NO PROCEDURE 
              xx(2) =  - cc / bb
./pkg/atm_ocn_coupler/mds_byteswap.F 30 MDS_BYTESWAPR4 
      character*(1) cc
./pkg/atm_ocn_coupler/mds_byteswap.F 33 MDS_BYTESWAPR4 
       cc=arr(i:i)
./pkg/atm_ocn_coupler/mds_byteswap.F 35 MDS_BYTESWAPR4 
       arr(i+3:i+3)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 36 MDS_BYTESWAPR4 
       cc=arr(i+1:i+1)
./pkg/atm_ocn_coupler/mds_byteswap.F 38 MDS_BYTESWAPR4 
       arr(i+2:i+2)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 64 MDS_BYTESWAPR8 
      character*(1) cc
./pkg/atm_ocn_coupler/mds_byteswap.F 67 MDS_BYTESWAPR8 
       cc=arr(i:i)
./pkg/atm_ocn_coupler/mds_byteswap.F 69 MDS_BYTESWAPR8 
       arr(i+7:i+7)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 70 MDS_BYTESWAPR8 
       cc=arr(i+1:i+1)
./pkg/atm_ocn_coupler/mds_byteswap.F 72 MDS_BYTESWAPR8 
       arr(i+6:i+6)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 73 MDS_BYTESWAPR8 
       cc=arr(i+2:i+2)
./pkg/atm_ocn_coupler/mds_byteswap.F 75 MDS_BYTESWAPR8 
       arr(i+5:i+5)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 76 MDS_BYTESWAPR8 
       cc=arr(i+3:i+3)
./pkg/atm_ocn_coupler/mds_byteswap.F 78 MDS_BYTESWAPR8 
       arr(i+4:i+4)=cc
./eesupp/src/mds_byteswapi4.F 41 MDS_BYTESWAPI4 
      character*(1) cc
./eesupp/src/mds_byteswapi4.F 44 MDS_BYTESWAPI4 
       cc=arr(i:i)
./eesupp/src/mds_byteswapi4.F 46 MDS_BYTESWAPI4 
       arr(i+3:i+3)=cc
./eesupp/src/mds_byteswapi4.F 47 MDS_BYTESWAPI4 
       cc=arr(i+1:i+1)
./eesupp/src/mds_byteswapi4.F 49 MDS_BYTESWAPI4 
       arr(i+2:i+2)=cc
./eesupp/src/mds_byteswapr4.F 41 MDS_BYTESWAPR4 
      character*(1) cc
./eesupp/src/mds_byteswapr4.F 44 MDS_BYTESWAPR4 
       cc=arr(i:i)
./eesupp/src/mds_byteswapr4.F 46 MDS_BYTESWAPR4 
       arr(i+3:i+3)=cc
./eesupp/src/mds_byteswapr4.F 47 MDS_BYTESWAPR4 
       cc=arr(i+1:i+1)
./eesupp/src/mds_byteswapr4.F 49 MDS_BYTESWAPR4 
       arr(i+2:i+2)=cc
./eesupp/src/mds_byteswapr8.F 45 MDS_BYTESWAPR8 
      character*(1) cc
./eesupp/src/mds_byteswapr8.F 48 MDS_BYTESWAPR8 
       cc=arr(i:i)
./eesupp/src/mds_byteswapr8.F 50 MDS_BYTESWAPR8 
       arr(i+7:i+7)=cc
./eesupp/src/mds_byteswapr8.F 51 MDS_BYTESWAPR8 
       cc=arr(i+1:i+1)
./eesupp/src/mds_byteswapr8.F 53 MDS_BYTESWAPR8 
       arr(i+6:i+6)=cc
./eesupp/src/mds_byteswapr8.F 54 MDS_BYTESWAPR8 
       cc=arr(i+2:i+2)
./eesupp/src/mds_byteswapr8.F 56 MDS_BYTESWAPR8 
       arr(i+5:i+5)=cc
./eesupp/src/mds_byteswapr8.F 57 MDS_BYTESWAPR8 
       cc=arr(i+3:i+3)
./eesupp/src/mds_byteswapr8.F 59 MDS_BYTESWAPR8 
       arr(i+4:i+4)=cc