Custom Query (969 matches)

I got this error from gfortran:

dateclock.f90:569:42:

           IF (DateNumber.ge.REAL(gregorian*86400,r8)) THEN
                                          1
Error: Arithmetic overflow at (1)

It compiles with this fix:

diff --git a/ROMS/Utility/dateclock.F b/ROMS/Utility/dateclock.F
index 55c6da41..6d8d17d4 100644
--- a/ROMS/Utility/dateclock.F
+++ b/ROMS/Utility/dateclock.F
@@ -586,7 +586,7 @@
             MyDateNumber=DateNumber+Rclock%DateNumber(1)
           END IF
         ELSE
-          IF (DateNumber.ge.REAL(gregorian*86400,r8)) THEN
+          IF (DateNumber.ge.REAL(gregorian,r8)*86400) THEN
             MyDateNumber=DateNumber/86400.0_r8
           ELSE
             MyDateNumber=(DateNumber+Rclock%DateNumber(2))/86400.0_r8

Made several improvements to routines netcdf_get_fatt, netcdf_get_satt, and netcdf_inq_var.

Several of us were having issues when reading floating-point and string attributes for a variable or global header.

Need to use my_ncid instead of ncid in routine netcdf_inq_var:

          DO i=1,MIN(Matts,n_gatt)
            att_id=i
            status=nf90_inq_attname(my_ncid, nf90_global, att_id,       &
      &                             att_name(i))
            IF (status.eq.nf90_noerr) THEN
              status=nf90_inquire_attribute(my_ncid, nf90_global,       &
      &                                     TRIM(att_name(i)),          &
      &                                     xtype = att_kind(i),        &
      &                                     attnum = att_id)
            ...
            END IF
          END DO