[Dart-dev] [3841] DART/trunk/observations/SSEC/convert_ssec_satwnd.f90: A couple other minor cleanup items, thanks to Ryan.

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090504/dfa74977/attachment.html 
-------------- next part --------------
Modified: DART/trunk/observations/SSEC/convert_ssec_satwnd.f90
===================================================================
--- DART/trunk/observations/SSEC/convert_ssec_satwnd.f90	2009-05-01 22:55:57 UTC (rev 3840)
+++ DART/trunk/observations/SSEC/convert_ssec_satwnd.f90	2009-05-04 15:30:59 UTC (rev 3841)
@@ -1,13 +1,13 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
-!   convert_ssec_clwnd - program that reads ASCII satellite wind data from 
+!   convert_ssec_satwnd - program that reads ASCII satellite wind data from 
 !                        CIMSS/SSEC and writes a genertic text file 
 !                        for use in creating obs_seq files.
 !
 !     created Dec. 2007 Ryan Torn, NCAR/MMM
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-program convert_ssec_clwnd
+program convert_ssec_satwnd
 
 use        types_mod, only : r8
 use    utilities_mod, only : get_unit
@@ -25,8 +25,8 @@
 
 implicit none
 
-character(len=15),  parameter :: ssec_sat_file = 'clwnd_input.txt'
-character(len=129), parameter :: sat_wind_file = 'obs_seq.clwnd'
+character(len=16),  parameter :: ssec_sat_file = 'satwnd_input.txt'
+character(len=129), parameter :: sat_wind_file = 'obs_seq.satwnd'
 
 integer, parameter :: nmaxwnd = 50000,  &  ! maximum number of vectors
                       num_copies = 1,   &  ! number of copies in sequence
@@ -145,9 +145,10 @@
 
 if ( get_num_obs(obs_seq) > 0 )  call write_obs_seq(obs_seq, sat_wind_file)
 
-stop
-end
+! end of main program
 
+contains
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 !   create_obs_type - subroutine that is used to create an observation
@@ -199,3 +200,5 @@
 
 return
 end subroutine create_obs_type
+
+end program