[MITgcm-support] Incorrect intrinsic function declaration in TIMER_GET_TIME

[Christopher L. Wolfe]

Warning to Cray X1E users:

The lines near line 784 in TIMER_GET_TIME which read

# elif (defined TARGET_T3E || defined TARGET_CRAY_VECTOR)
       real second, secondr
       external second, secondr
# else

should read

# elif (defined TARGET_T3E || defined TARGET_CRAY_VECTOR)
       real*4 second
       real*8 secondr
       external second, secondr
# else

since secondr's return type is real*8 (at least on the Cray X1Es).  
The original declaration causes secondr to return absurd values which  
can lead to floating point exceptions.

Christopher

-----------------------------------------------------------
Dr. Christopher L. Wolfe                   858-534-4560
Physical Oceanography Research Division    OAR 357
Scripps Institution of Oceanography, UCSD  clwolfe at ucsd.edu
-----------------------------------------------------------