Is it a bug in ana_nudgcoef.h?

[yourgod_mwt_cn]

In the script designed to configure the nudging coefficients, the loop iterates from 1 to NTCLM. However, the array Tnudg contains NT elements. I think there is a mismatch of the indices

Code: Select all

      IF (ANY(LnudgeTCLM(:,ng))) THEN
        DO itrc=1,NTCLM(ng)
          DO k=1,N(ng)
            DO j=JstrT,JendT
              DO i=IstrT,IendT
                CLIMA(ng)%Tnudgcof(i,j,k,itrc)=Tnudg(itrc,ng)
              END DO
            END DO
          END DO
        END DO
      END IF