Symbol Description Uses
xa 7


File Line number Procedure Code
./pkg/ebm/ebm_wind_perturb.F 38 EBM_WIND_PERTURB 
      _RS xa(1-OLx:sNx+OLx), xa2(1-OLx:sNx+OLx)
./pkg/ebm/ebm_wind_perturb.F 63 EBM_WIND_PERTURB 
         xa(i) = 0.0
./pkg/ebm/ebm_wind_perturb.F 91 EBM_WIND_PERTURB 
         xa(i) = x(i) - MOD(x(i),10.0)
./pkg/ebm/ebm_wind_perturb.F 92 EBM_WIND_PERTURB 
         xa2(i) = xa(i)+10.0
./pkg/ebm/ebm_wind_perturb.F 96 EBM_WIND_PERTURB 
         temp2(i,j) = 0.1*( (x(i)-xa(i))*temp(INT(xa2(i)),j)+
./pkg/ebm/ebm_wind_perturb.F 97 EBM_WIND_PERTURB 
     &        (10.0-x(i)+xa(i))*temp(INT(xa(i)),j) )