[Dart-dev] [10374] DART/trunk/time_manager/advance_time.f90: remove 2 debugging writes , some white space,
nancy at ucar.edu
nancy at ucar.edu
Tue Jun 14 15:55:45 MDT 2016
Revision: 10374
Author: nancy
Date: 2016-06-14 15:55:44 -0600 (Tue, 14 Jun 2016)
Log Message:
-----------
remove 2 debugging writes, some white space,
and some unneeded returns at the end of a function.
Modified Paths:
--------------
DART/trunk/time_manager/advance_time.f90
-------------- next part --------------
Modified: DART/trunk/time_manager/advance_time.f90
===================================================================
--- DART/trunk/time_manager/advance_time.f90 2016-06-14 21:29:15 UTC (rev 10373)
+++ DART/trunk/time_manager/advance_time.f90 2016-06-14 21:55:44 UTC (rev 10374)
@@ -200,19 +200,15 @@
base_time = decrement_time(base_time, -ds)
endif
-
call get_date(base_time, ccyy, mm, dd, hh, nn, ss)
-
write(ccyymmddhhnnss(1:14), fmt='(i4, 5i2.2)') ccyy, mm, dd, hh, nn, ss
if ( nargum == 2 ) then
-write(12, *) 'datelen,nn,ss ', datelen, nn, ss
if (datelen == 13) datelen=10
if (datelen<14) then
if(nn /= 0) datelen=12
if(ss /= 0) datelen=14
endif
-write(12, *) 'datelen,nn,ss ', datelen, nn, ss
write(unit=stdout, fmt='(a)') ccyymmddhhnnss(1:datelen)
elseif ( nargum > 2 ) then
i = 3
@@ -375,11 +371,8 @@
if (in /= 0) formatdate(in:in+1) = datein(11:12)
if (is /= 0) formatdate(is:is+1) = datein(13:14)
-return
-
end function formatdate
-
!-----------------------------------------------------------------------
!>
!> @param[in] ccyy the century and year
@@ -404,8 +397,6 @@
fffff = hh*3600 + nn*60 + ss
write(formatCESMdate, '(i4.4,1a,2(i2.2,1a),i5.5)') ccyy, '-', mm, '-', dd, '-', fffff
-return
-
end function formatCESMdate
More information about the Dart-dev
mailing list