Opened 10 years ago

Closed 10 years ago

#788 closed Bug (fixed)

dupplicate code in obc_ini

Reported by: molines Owned by: nemo
Priority: high Milestone:
Component: OCE Version: release-3.3
Severity: Keywords: OBC
Cc: Branch review:
MP ready?: Task progress:


In obc_ini, the following bloc of code is duplicated, thus introducing an error in the value of obcsurftot …

      IF( lp_obc_west ) THEN ! ... West open boundary lateral surface
         DO ji = niw0, niw1
            DO jj = 1, jpj 
               obcsurftot = obcsurftot+hu(ji,jj)*e2u(ji,jj)*uwmsk(jj,1) * MAX(obctmsk(ji,jj),obctmsk(ji+1,jj) )
            END DO
         END DO
      END IF

Commit History (1)


Suppress duplicated code in obcini, see ticket #788

Change History (1)

comment:1 Changed 10 years ago by rblod

  • Resolution set to fixed
  • Status changed from new to closed
Note: See TracTickets for help on using tickets.