[cig-commits] [commit] master: fixing datetime string, adding timezone (4810c27)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/axisem

On branch  : master
Link       : https://github.com/geodynamics/axisem/compare/4221bf19636b24e234c637438df809199712d516...60945ec62bdb35c64fe807683c29aece1bcdad81

>---------------------------------------------------------------

commit 4810c271bb5c7fd725648f3e8e572e6f8a0aca16
Author: martinvandriel <vandriel at erdw.ethz.ch>
Date:   Tue Oct 21 21:05:46 2014 +0200

    fixing datetime string, adding timezone


>---------------------------------------------------------------

4810c271bb5c7fd725648f3e8e572e6f8a0aca16
 SOLVER/parameters.F90 | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/SOLVER/parameters.F90 b/SOLVER/parameters.F90
index d8e376f..eaf7abc 100644
--- a/SOLVER/parameters.F90
+++ b/SOLVER/parameters.F90
@@ -1171,12 +1171,13 @@ subroutine write_parameters
 
     character(len=8)  :: mydate
     character(len=10) :: mytime
-    character(len=19) :: mydatetime
+    character(len=5)  :: myzone
+    character(len=24) :: mydatetime
 
-    call date_and_time(mydate,mytime) 
-    write(mydatetime,1212) mydate(1:4), mydate(7:8), mydate(5:6), mytime(1:2), mytime(3:4), mytime(5:6)
+    call date_and_time(mydate, mytime, myzone) 
+    write(mydatetime,1212) mydate(1:4), mydate(5:6), mydate(7:8), mytime(1:2), mytime(3:4), mytime(5:6), myzone
 
-1212 format(A4,'-',A2,'-',A2,'T', A2,':',A2,':',A2)
+1212 format(A4,'-',A2,'-',A2,'T', A2,':',A2,':',A2, A5)
 
     if (verbose > 1) then
        write(69,*)'  writing out all relevant simulation parameters...'