Custom Query (986 matches)

Changed the logic in check_multifile.F to compute local variable Tfinal from:

!
!  Get final time string for simulation.
!
      IF (model.eq.iADM) THEN
        Tfinal=dstart*day2sec
      ELSE
        Tfinal=dstart*day2sec+ntimes(ng)*dt(ng)
      END IF
      CALL time_string (tfinal, F_code)

to

!
!  Get final time string for simulation.
!
      IF (model.eq.iADM) THEN
        Tfinal=time(ng)-ntimes(ng)*dt(ng)
      ELSE
        Tfinal=time(ng)+ntimes(ng)*dt(ng)
      END IF
      CALL time_string (tfinal, F_code)

The latest is more robust because it doesn't depend on the user manipulation of DSTART in ocean.in. Under certain conditions the checking of input files may fail in check_multifile.F.

Also, I added precise error reporting in the routine inquiry.F.

Many thanks to Julia Levin for bringing this to my attention.

A few bugs I have noticed...

In ROMS/Include/globaldefs.h at line 576 the "#" in the first column has been omitted

In ROMS/Include/globaldefs.h at line 584, this

#if defined ATM_COUPLING || ICE_COUPLING || WAV_COUPLING

should be

#if defined ATM_COUPLING || defined ICE_COUPLING || defined WAV_COUPLING

In ROMS/Utility/def_quick.F at lines 1576-1577 there is an extraneous "cccc":

           IF (FoundError(exit_flag, NoError, __LINE__,                  &
     &   cccc            __FILE__)) RETURN

Added few Matlab scripts:

• grid/add_coords.m: Adds horizontal (Cartesian or spherical) coordinates to a NetCDF file.

• grid/add_mask.m: Adds generic land/maks to a non ROMS NetCDF file.

• grid/add_masks.m: Adds ROMS land/sea mask arrays to a NetCDF file.

• netcdf/check_records.m: Checks multi-file records for monotonicity.

• netcdf/remove_record.m: Removes specified record in a NetCDF file.