Symbol Description Uses
xai 38


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1006 CLDSCALE 
      _RL   fm,ft,fa,xai,taux
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1113 CLDSCALE 
           xai=    (-caib(im-1,it,ia)*(1.-fm)+
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1116 CLDSCALE 
           xai=xai+(-caib(im,it-1,ia)*(1.-ft)+
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1119 CLDSCALE 
           xai=xai+(-caib(im,it,ia-1)*(1.-fa)+
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1122 CLDSCALE 
           xai= xai-2.*caib(im,it,ia)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1123 CLDSCALE 
           xai=max(xai,0.0 _d 0)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1125 CLDSCALE 
           tauclb(i,j,k) = taux*xai
./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 1134 CLDSCALE 
           xai=xai+(-caif(it,ia-1)*(1.-fa)+
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1137 CLDSCALE 
           xai= xai-caif(it,ia)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1138 CLDSCALE 
           xai=max(xai,0.0 _d 0)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 1140 CLDSCALE 
           tauclf(i,j,k) = taux*xai
./pkg/fizhi/fizhi_swrad.F 1005 CLDSCALE 
      _RL   fm,ft,fa,xai,taux
./pkg/fizhi/fizhi_swrad.F 1112 CLDSCALE 
           xai=    (-caib(im-1,it,ia)*(1.-fm)+
./pkg/fizhi/fizhi_swrad.F 1115 CLDSCALE 
           xai=xai+(-caib(im,it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1118 CLDSCALE 
           xai=xai+(-caib(im,it,ia-1)*(1.-fa)+
./pkg/fizhi/fizhi_swrad.F 1121 CLDSCALE 
           xai= xai-2.*caib(im,it,ia)
./pkg/fizhi/fizhi_swrad.F 1122 CLDSCALE 
           xai=max(xai,0.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1124 CLDSCALE 
           tauclb(i,j,k) = taux*xai
./pkg/fizhi/fizhi_swrad.F 1130 CLDSCALE 
           xai=    (-caif(it-1,ia)*(1.-ft)+
./pkg/fizhi/fizhi_swrad.F 1133 CLDSCALE 
           xai=xai+(-caif(it,ia-1)*(1.-fa)+
./pkg/fizhi/fizhi_swrad.F 1136 CLDSCALE 
           xai= xai-caif(it,ia)
./pkg/fizhi/fizhi_swrad.F 1137 CLDSCALE 
           xai=max(xai,0.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1139 CLDSCALE 
           tauclf(i,j,k) = taux*xai