Opened 12 years ago

Closed 12 years ago

#542 closed bug (Fixed)

Corrected bug in wrt_his.F in 2D applications

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

Description

Corrected couple of bug in wrt_his.F introduced recently with the output of eastward and northward velocity components. This only affect 2D applications (shallow water). The use of module uv_rotate2d was included in the wrong place of the CPP directives. We need to have instead: 

      USE uv_rotate_mod, ONLY : uv_rotate2d
#ifdef SOLVE3D
      USE uv_rotate_mod, ONLY : uv_rotate3d
#endif

outside of another SOLVE3D loop directives.

Many thanks to Mark Hadfield for ​bringing this to my attention.

Change History (1)

comment:1 by arango, 12 years ago

Resolution: → Fixed
Status: new → closed
Note: See TracTickets for help on using tickets.