1 | Index: 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)
|
---|