typo in wrt_info.F

[chuning]

Found a typo in ROMS/Utility/wrt_info.F

line 3747

Code: Select all

GRID_VARS : IF (FileH.eq.ABS(STA(ng)%pioFile&fh)) THEN

Should be

Code: Select all

GRID_VARS : IF (FileH.eq.ABS(STA(ng)%pioFile%fh)) THEN

[arango]

Those two lines are identical. The code compiles fine for me when STATIONS is activated or not.

[chuning]

Hi Hernan,

Those two lines are identical. The code compiles fine for me when STATIONS is activated or not.

Those two lines are not identical. The last & should be %. The whole code piece in wrt_info.F is

Code: Select all

!
!-----------------------------------------------------------------------
!  Write out grid tiled variables.
!-----------------------------------------------------------------------
!
# ifdef NO_WRITE_GRID
      GRID_VARS : IF (FileH.eq.ABS(STA(ng)%pioFile&fh)) THEN <-- HERE
# else
      GRID_VARS : IF (FileH.ne.ABS(FLT(ng)%pioFile%fh)) THEN
# endif

Note that the IF statement in #else is FLT(ng)%pioFile%fh while the other IF statement is STA(ng)%pioFile&fh.

It will compile regardless of the STATION CPP option. The error occurs when I compiled with NO_WRITE_GRID and the new PIO_LIB, which I'm testing on a cluster.

By the way I pulled from the git repo, not svn, if that's going to make a difference.

Chuning