Symbol Description Uses
caif 19


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1012 CLDSCALE 
      _RL   dm,dt,da,t1,caib(nm,nt,na),caif(nt,na)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1018 CLDSCALE 
      save caib,caif
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1131 CLDSCALE 
           xai=    (-caif(it-1,ia)*(1.-ft)+
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1132 CLDSCALE 
     *      caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1134 CLDSCALE 
           xai=xai+(-caif(it,ia-1)*(1.-fa)+
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1135 CLDSCALE 
     *      caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1137 CLDSCALE 
           xai= xai-caif(it,ia)
./pkg/fizhi/fizhi_swrad.F 1011 CLDSCALE 
      _RL   dm,dt,da,t1,caib(nm,nt,na),caif(nt,na)
./pkg/fizhi/fizhi_swrad.F 1017 CLDSCALE 
      save caib,caif
./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)
./pkg/fizhi/cai-dat.h 112 NO PROCEDURE 
      data ((caif(i,j),j=1,11),i=1,9)/