a small bug in inp_par.F

[xiaozhu557]

Hello all,
I found a small bug in line 855 of the file inp_par.F.
The original version is

Code: Select all

854    #ifdef SOLVE3D
855            IF (LnudgeM3CLM(ng).or.                                         &
856         &      LnudgeM3CLM(ng).or.                                         &
857         &      ANY(LnudgeTCLM(:,ng))) THEN
858              Lnudging(ng)=.TRUE.
859            END IF
860    #else
861            IF (LnudgeM2CLM(ng)) THEN
862              Lnudging(ng)=.TRUE.
863            END IF
864    #endif

I think that the right version should be

Code: Select all

854    #ifdef SOLVE3D
855            IF (LnudgeM2CLM(ng).or.                                         &
856         &      LnudgeM3CLM(ng).or.                                         &
857         &      ANY(LnudgeTCLM(:,ng))) THEN
858              Lnudging(ng)=.TRUE.
859            END IF
860    #else
861            IF (LnudgeM2CLM(ng)) THEN
862              Lnudging(ng)=.TRUE.
863            END IF
864    #endif

Am I right?

[kate]

Looks to me like you are right. Thanks!

[arango]

Yes, good catch. Thank you.