Ticket #156: patch.get_date

File patch.get_date, 726 bytes (added by kate, 16 years ago)

patch

Line 
1Index: ROMS/Utility/get_date.F
2===================================================================
3--- ROMS/Utility/get_date.F (revision 618)
4+++ ROMS/Utility/get_date.F (working copy)
5@@ -527,7 +527,7 @@
6 !
7 ! Local variable declarations.
8 !
9- integer :: iday, ihour, isec, itime, minute
10+ integer :: iday, ihour, isec, minute
11
12 character (len=14) :: text
13 !
14@@ -535,9 +535,8 @@
15 ! Encode current mode time.
16 !-----------------------------------------------------------------------
17 !
18- itime=INT(time)
19- iday=itime/86400
20- isec=itime-iday*86400
21+ iday=INT(time/86400)
22+ isec=INT(time-iday*86400._r8)
23 ihour=isec/3600
24 minute=MOD(isec,3600)/60
25 isec=MOD(isec,60)