Opened 7 years ago

Closed 7 years ago

#728 closed defect (Fixed)

Correcte couple typos

Reported by: arango Owned by: arango
Priority: major Milestone: Release ROMS/TOMS 3.7
Component: Nonlinear Version: 3.7
Keywords: Cc:

Description

  • Corrected couple of cut/paste typos in ROMS/Functionals/ana_cloud.h and ROMS/Utility/read_asspar.F.
  • Updated routine datevec in dateclock.F to make sure that seconds are positive:
    !
    !  Convert fraction of a day.
    !
          seconds=DayFraction*86400.0_r8
          CT=3.0_r8*EPSILON(seconds)             ! comparison tolerance
          seconds=ROUND(seconds, CT)             ! tolerant round function
    !
          hour=INT(seconds/3600.0_r8)
          seconds=ABS(seconds-REAL(hour*3600,r8))
          minutes=INT(seconds/60.0_r8)
          seconds=ABS(seconds-REAL(minutes*60,r8))
    

Change History (1)

comment:1 by arango, 7 years ago

Resolution: Fixed
Status: newclosed
Note: See TracTickets for help on using tickets.