[Dart-dev] DART/branches Revision: 12621

[dart at ucar.edu]

nancy at ucar.edu
2018-06-05 10:41:18 -0600 (Tue, 05 Jun 2018)
44
fix the format strings to match the calls.




Modified: DART/branches/all_nsc_changes/assimilation_code/modules/utilities/time_manager_mod.f90
===================================================================
--- DART/branches/all_nsc_changes/assimilation_code/modules/utilities/time_manager_mod.f90	2018-06-05 04:09:19 UTC (rev 12620)
+++ DART/branches/all_nsc_changes/assimilation_code/modules/utilities/time_manager_mod.f90	2018-06-05 16:41:18 UTC (rev 12621)
@@ -2999,17 +2999,17 @@
 if ( calendar_type == GREGORIAN_MARS ) then
    mon = 'sol'
    write(datestr,10) y,mon(1:3),' ',d,' ',h,':',m,':',s
-10 format (a,i4,1x,a3,a1,i3.3,3(a1,i2.2))
+10 format (i4,1x,a3,a1,i3.3,3(a1,i2.2))
 else if (calendar_type == SOLAR_MARS ) then
    mon = 'sol'
    write(datestr,12) y,mon(1:3),' ',d,' ',h,':',m,':',s
-12 format (a,i4,1x,a3,a1,i5.5,3(a1,i2.2))
+12 format (i4,1x,a3,a1,i5.5,3(a1,i2.2))
 
 ! if not Mars, then use Earth calendar
 else
    mon = month_name(mo)
    write(datestr,11) y,mon(1:3),' ',d,' ',h,':',m,':',s
-11 format (a,i4,1x,a3,4(a1,i2.2))
+11 format (i4,1x,a3,4(a1,i2.2))
 endif
 
 if (present(str)) then