Symbol Description Uses
xai 19


File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1013 CLDSCALE 
      _RL   fm,ft,fa,xai,taux
./pkg/fizhi/fizhi_swrad.F 1120 CLDSCALE 
           xai=    (-caib(im-1,it,ia)*(1.-fm)+
./pkg/fizhi/fizhi_swrad.F 1123 CLDSCALE 
           xai=xai+(-caib(im,it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1126 CLDSCALE 
           xai=xai+(-caib(im,it,ia-1)*(1.-fa)+
./pkg/fizhi/fizhi_swrad.F 1129 CLDSCALE 
           xai= xai-2.*caib(im,it,ia)
./pkg/fizhi/fizhi_swrad.F 1130 CLDSCALE 
           xai=max(xai,0.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1132 CLDSCALE 
           tauclb(i,j,k) = taux*xai
./pkg/fizhi/fizhi_swrad.F 1138 CLDSCALE 
           xai=    (-caif(it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1141 CLDSCALE 
           xai=xai+(-caif(it,ia-1)*(1.-fa)+
./pkg/fizhi/fizhi_swrad.F 1144 CLDSCALE 
           xai= xai-caif(it,ia)
./pkg/fizhi/fizhi_swrad.F 1145 CLDSCALE 
           xai=max(xai,0.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1147 CLDSCALE 
           tauclf(i,j,k) = taux*xai