[Dart-dev] [10374] DART/trunk/time_manager/advance_time.f90: remove 2 debugging writes , some white space,

[nancy at ucar.edu]

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