Symbol Description Uses
xa2 6


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 64 EBM_WIND_PERTURB 
         xa2(i) =  0.0
./pkg/ebm/ebm_wind_perturb.F 92 EBM_WIND_PERTURB 
         xa2(i) = xa(i)+10.0
./pkg/ebm/ebm_wind_perturb.F 93 EBM_WIND_PERTURB 
        if ( xa2(i) .gt. sNx+Olx ) then
./pkg/ebm/ebm_wind_perturb.F 94 EBM_WIND_PERTURB 
           xa2(i) = 0.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)+