[Dart-dev] [4043] DART/trunk/observations/gps/convert_cosmic_gps_cdf.f90: Using DART-standard metadatalength variable so that things pretty-print

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090908/018ccf5a/attachment.html 
-------------- next part --------------
Modified: DART/trunk/observations/gps/convert_cosmic_gps_cdf.f90
===================================================================
--- DART/trunk/observations/gps/convert_cosmic_gps_cdf.f90	2009-09-04 23:28:15 UTC (rev 4042)
+++ DART/trunk/observations/gps/convert_cosmic_gps_cdf.f90	2009-09-08 21:54:42 UTC (rev 4043)
@@ -15,7 +15,7 @@
 
 program convert_cosmic_gps_cdf
 
-use        types_mod, only : r8
+use        types_mod, only : r8, metadatalength
 use time_manager_mod, only : time_type, set_calendar_type, GREGORIAN, set_time,&
                              increment_time, get_time, set_date, operator(-),  &
                              print_date
@@ -50,7 +50,8 @@
 integer, parameter ::   num_copies = 1,   &   ! number of copies in sequence
                         num_qc     = 1        ! number of QC entries
 
-character (len=129) :: meta_data, msgstring, next_infile
+character (len=metadatalength) :: meta_data
+character (len=129) :: msgstring, next_infile
 character (len=80)  :: name
 character (len=19)  :: datestr
 character (len=6)   :: subset