Unterminated IF in version 820 when using strong constraint

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
jpm
Posts: 21
Joined: Thu Aug 27, 2009 4:37 pm
Location: UCSC

Unterminated IF in version 820 when using strong constraint

#1 Unread post by 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
Jann Paul Mattern, Ocean Sciences Department, UCSC

Post Reply