Opened 2 years ago

Closed 2 years ago

#748 closed bug (Fixed)

get_wetdry.F missing label 50

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

Description (last modified by arango)

There is a format number error in get_wetdry.F:

      IF (INI(ng)%ncid.eq.-1) THEN
        CALL netcdf_open (ng, model, ncname, 1, INI(ng)%ncid)
        IF (FoundError(exit_flag, NoError, __LINE__,                    &
     &                 __FILE__)) THEN
          WRITE (stdout,50) TRIM(ncname)
        END IF
      END IF

Format label 50 is missing.

get_wetdry.f90(62): error #6052: This label has not been defined as a FORMAT label.   [50]
          WRITE (stdout,50) TRIM(ncname)

Change History (1)

comment:1 Changed 2 years ago by arango

  • Description modified (diff)
  • Resolution set to Fixed
  • Status changed from new to closed

¥es, thank you. Renumbered the format labels and remove additional opening of the initial NetCDF file.

Note: See TracTickets for help on using tickets.