Opened 13 years ago

Last modified 13 years ago

#267 closed defect

Corrections to ropp_io_read_ncdf_get.f90 — at Initial version

Reported by: Ian Culverwell Owned by: Ian Culverwell
Priority: normal Milestone: 6.0
Component: ropp_io Version: 5.0
Keywords: lahey95, READ, string-to-integer Cc:

Description

ROPP6.0 beta testing with the (unsupported) Lahey95 compiler revealed small problem while converting string to integer with READ statement. Problem sorted (by user): replace 

READ(proc_date, "(i4.4,1x,i2.2,1x,i2.2,1x,i2.2,1x,i2.2,1x,i2.2,1x,i3.3)") &
       data%DTpro%Year,   &
       data%DTpro%Month,  &
       data%DTpro%Day,    &
       data%DTpro%Hour,   &
       data%DTpro%Minute, &       
       data%DTpro%Second, &
       data%DTpro%Msec

with 

  READ(proc_date(1:4)  , *) data%DTpro%Year
  READ(proc_date(6:7)  , *) data%DTpro%Month
  READ(proc_date(9:10) , *) data%DTpro%Day
  READ(proc_date(12:13), *) data%DTpro%Hour
  READ(proc_date(15:16), *) data%DTpro%Minute
  READ(proc_date(18:19), *) data%DTpro%Second
  READ(proc_date(21:23), *) data%DTpro%Msec

Works OK for other compilers a in test code, and for the make test tests.

Putting in ROPP6.0.

Change history (0)

Note: See TracTickets for help on using tickets.