Opened 17 years ago
Closed 17 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
Note:
See TracTickets
for help on using tickets.
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.