67 |
if (timeunit .eq. 'secs') then |
if (timeunit .eq. 'secs') then |
68 |
|
|
69 |
date(1) = int(timeint/float(secondsperday)) |
date(1) = int(timeint/float(secondsperday)) |
70 |
nsecs = int(timeint - float(date(1)*secondsperday)) |
nsecs = int(timeint - float(date(1)) * float(secondsperday)) |
71 |
|
|
72 |
else if (timeunit .eq. 'model') then |
else if (timeunit .eq. 'model') then |
73 |
|
|
74 |
date(1) = int(timeint*modelstep/float(secondsperday)) |
date(1) = int(timeint*modelstep/float(secondsperday)) |
75 |
nsecs = int(timeint*modelstep - |
nsecs = int(timeint*modelstep - |
76 |
& float(date(1)*secondsperday)) |
& float(date(1)) * float(secondsperday)) |
77 |
|
|
78 |
else |
else |
79 |
|
|