Opened 7 years ago

Closed 7 years ago

#748 closed bug (Fixed)

get_wetdry.F missing label 50 — at Version 1

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)
          RETURN
        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 by arango, 7 years ago

Description: modified (diff)
Resolution: → Fixed
Status: new → 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.