[Dart-dev] [3862] DART/trunk/observations/radar/create_obs_radar_sequence.f90: removing yet another tab

nancy at ucar.edu nancy at ucar.edu
Wed May 6 16:17:14 MDT 2009


An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090506/a025023d/attachment.html 
-------------- next part --------------
Modified: DART/trunk/observations/radar/create_obs_radar_sequence.f90
===================================================================
--- DART/trunk/observations/radar/create_obs_radar_sequence.f90	2009-05-06 22:15:22 UTC (rev 3861)
+++ DART/trunk/observations/radar/create_obs_radar_sequence.f90	2009-05-06 22:17:13 UTC (rev 3862)
@@ -405,8 +405,8 @@
 ! Add the height increment and check for 'too high'.
 vloc = vloc + h
 
-if(vloc.gt.ceiling) then 	! max. height for radar obs = 8.5km
-   qc = .false.	! bad data
+if(vloc.gt.ceiling) then       ! max. height for radar obs = 8.5km
+   qc = .false.        ! bad data
    return
 endif 
 
@@ -436,7 +436,7 @@
    call set_radial_vel(defkey, radar_location, beam_direction, nyquist_velocity)
 endif
 
-qc = .true.	! all good
+qc = .true.    ! all good
 
 end subroutine compute_location
 


More information about the Dart-dev mailing list