typo in wrt_info.F

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
chuning
Posts: 8
Joined: Thu Jan 21, 2016 6:06 pm
Location: Rutgers University

typo in wrt_info.F

#1 Unread post by 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

User avatar
arango
Site Admin
Posts: 1347
Joined: Wed Feb 26, 2003 4:41 pm
Location: DMCS, Rutgers University
Contact:

Re: typo in wrt_info.F

#2 Unread post by arango »

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

chuning
Posts: 8
Joined: Thu Jan 21, 2016 6:06 pm
Location: Rutgers University

Re: typo in wrt_info.F

#3 Unread post by chuning »

Hi Hernan,
arango wrote: Fri May 28, 2021 6:40 pm 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

Post Reply