Unterminated IF in version 820 when using strong constraint

[jpm]

I just encountered an error when I tried to compile the most recent ROMS version with IS4DVAR and BGQC defined. There is an unterminated if-clause in obs_write.F:

Code: Select all

# ifndef WEAK_CONSTRAINT
!
!  Set observation scale (ObsScale). The scale factor is used
!  for screenning of the observations. This scale is one for good
!  observations and zero for bad observations.
!
#  ifdef BGQC
#   ifdef IS4DVAR
        IF (inner.eq.0.and.wrtNLmod(ng)) THEN !! not terminated
#   else
        IF (inner.eq.0.and.outer.eq.0) THEN   !! not terminated
#   endif
        DO iobs=Mstr,Mend
          ObsScale(iobs)=IniVal
        END DO
#  else
        DO iobs=Mstr,Mend
          ObsScale(iobs)=IniVal
        END DO
#  endif
# endif