Opened 17 years ago

Closed 17 years ago

#293 closed bug (Fixed)

Missing declaration in mod_fourdvar.F

Reported by: m.hadfield Owned by: arango
Priority: major Milestone: Release ROMS/TOMS 3.2
Component: Nonlinear Version: 3.2
Keywords: Cc:

Description (last modified by arango)

In ROMS/Modules/mod_fourdvar.F, subroutine initialize_fourdvar, the parameter IniVal is declared inside an #ifdef block (lines 503–505): 

# ifdef OBSERVATIONS
      real(r8), parameter :: IniVal = 0.0_r8
# endif

but later (lines 758-774) it is used in code that is not conditional on OBSERVATIONS being defined.

PS: I found this while building the CHANNEL_NECK test case.

Change History (1)

comment:1 by arango, 17 years ago

Description: modified (diff)
Resolution: → Fixed
Status: new → closed

Yes, good catch. Thank you.

Note: See TracTickets for help on using tickets.