blob: 6dc915a5867162d637c177b1eea462110aa32af9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- get_fname.F90.orig Mon Dec 11 10:38:21 2006
+++ get_fname.F90 Mon Dec 11 10:38:42 2006
@@ -5,6 +5,7 @@
use dfport
#endif
+ external gmtime_r
character hiscall*12,fname*24,tag*7
integer ntime
integer trperiod
@@ -13,7 +14,7 @@
n1=ntime
n2=(n1+2)/trperiod
n3=n2*trperiod
- call gmtime(n3,it)
+ call gmtime_r(n3,it)
it(5)=it(5)+1
it(6)=mod(it(6),100)
write(fname,1000) (it(j),j=6,1,-1)
|
