/[MITgcm]/MITgcm/model/src/forward_step.F
ViewVC logotype

Diff of /MITgcm/model/src/forward_step.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.28 by heimbach, Fri Jan 11 19:00:43 2002 UTC revision 1.29 by jmc, Wed Jan 30 04:12:12 2002 UTC
# Line 93  C--   Update etaH(n+1) : Line 93  C--   Update etaH(n+1) :
93          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
94           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
95             CALL CALC_EXACT_ETA( .FALSE., bi,bj, uVel,vVel,             CALL CALC_EXACT_ETA( .FALSE., bi,bj, uVel,vVel,
96       I                          startTime, nIter0, myThid )       I                          myTime, myIter, myThid )
97           ENDDO           ENDDO
98          ENDDO          ENDDO
99          IF (implicDiv2Dflow .NE. 1. _d 0 )          IF (implicDiv2Dflow .NE. 1. _d 0 .OR. useOBCS )
100       &     _EXCH_XY_R8(etaH, myThid )       &     _EXCH_XY_R8(etaH, myThid )
101        ENDIF        ENDIF
102  #endif /* EXACT_CONSERV */  #endif /* EXACT_CONSERV */
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22