Lnudging logic

[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.

[kate]

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