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

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

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

revision 1.5 by jmc, Tue Jul 6 01:05:53 2004 UTC revision 1.6 by jmc, Wed Jul 7 01:28:18 2004 UTC
# Line 101  C- end bi,bj loop. Line 101  C- end bi,bj loop.
101        IF (implicDiv2Dflow .NE. 1. _d 0 .OR. useOBCS )        IF (implicDiv2Dflow .NE. 1. _d 0 .OR. useOBCS )
102       &    _EXCH_XY_RL( etaH, myThid )       &    _EXCH_XY_RL( etaH, myThid )
103    
104        IF (useRealFreshWaterFlux .AND. myTime.EQ.startTime)  c     IF (useRealFreshWaterFlux .AND. myTime.EQ.startTime)
105       &    _EXCH_XY_R4( PmEpR, myThid )  c    &    _EXCH_XY_R4( PmEpR, myThid )
106    
107  #endif /* EXACT_CONSERV */  #endif /* EXACT_CONSERV */
108    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22