Lnudging logic

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
User avatar
m.hadfield
Posts: 521
Joined: Tue Jul 01, 2003 4:12 am
Location: NIWA

Lnudging logic

#1 Unread post by m.hadfield »

The code to set the Lnudging switch for each grid in inp_par.F (lines 853-863) is

Code: Select all

#ifdef SOLVE3D
        IF (LnudgeM3CLM(ng).or.                                         &
     &      LnudgeM3CLM(ng).or.                                         &
     &      ANY(LnudgeTCLM(:,ng))) THEN
          Lnudging(ng)=.TRUE.
        END IF
#else
        IF (LnudgeM2CLM(ng)) THEN
          Lnudging(ng)=.TRUE.
        END IF
#endif
At line 854, shouldn't that be LnudgeM2CLM(ng)? I.e.

Code: Select all

#ifdef SOLVE3D
        IF (LnudgeM2CLM(ng).or.                                         &
     &      LnudgeM3CLM(ng).or.                                         &
     &      ANY(LnudgeTCLM(:,ng))) THEN
          Lnudging(ng)=.TRUE.
        END IF
#else
        IF (LnudgeM2CLM(ng)) THEN
          Lnudging(ng)=.TRUE.
        END IF
#endif
I picked that up by comparing COAWST and Rutgers ROMS.

User avatar
kate
Posts: 4088
Joined: Wed Jul 02, 2003 5:29 pm
Location: CFOS/UAF, USA

Re: Lnudging logic

#2 Unread post by kate »

Yes, someone else pointed out that error here on the forums.

Post Reply