Opened 16 years ago

Closed 16 years ago

#188 closed bug (Fixed)

Misplaced #endif in def_floats.F

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

Description

In ROMS/Utility/def_floats.F, lines 493-501 are 

# ifdef SOLVE3D
          ELSE IF (TRIM(var_name(i)).eq.'depth') THEN
            got_var(iddpth)=.TRUE.
            fltVid(iddpth,ng)=var_id(i)
          ELSE IF (TRIM(var_name(i)).eq.TRIM(Vname(1,idDano))) THEN
            got_var(idDano)=.TRUE.
            fltVid(idDano,ng)=var_id(i)
          END IF
# endif

This leads to the END IF being omitted when SOLVE3D is undefined. The last two lines need to be swapped, ie: 

# ifdef SOLVE3D
          ELSE IF (TRIM(var_name(i)).eq.'depth') THEN
            got_var(iddpth)=.TRUE.
            fltVid(iddpth,ng)=var_id(i)
          ELSE IF (TRIM(var_name(i)).eq.TRIM(Vname(1,idDano))) THEN
            got_var(idDano)=.TRUE.
            fltVid(idDano,ng)=var_id(i)
# endif
          END IF

Change History (1)

comment:1 by arango, 16 years ago

Resolution: → Fixed
Status: new → closed

Yes, I missed that one. I also corrected wrt_avg.F and wrt_diags.F since it was writing the wrong time variable. Thank you Mark for reporting this problem too.

Note: See TracTickets for help on using tickets.