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

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

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

revision 1.45 by jmc, Tue Mar 7 15:28:02 2006 UTC revision 1.46 by heimbach, Wed Jun 7 01:55:13 2006 UTC
# Line 291  C      and return coriolis terms on C-gr Line 291  C      and return coriolis terms on C-gr
291           DO i=iMin,iMax           DO i=iMin,iMax
292            IF ( k.EQ.ksurfW(i,j,bi,bj) ) THEN            IF ( k.EQ.ksurfW(i,j,bi,bj) ) THEN
293             gUtmp(i,j) = gUtmp(i,j)             gUtmp(i,j) = gUtmp(i,j)
294       &         *hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj)       &         *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj)
295            ENDIF            ENDIF
296            IF ( k.EQ.ksurfS(i,j,bi,bj) ) THEN            IF ( k.EQ.ksurfS(i,j,bi,bj) ) THEN
297             gVtmp(i,j) = gVtmp(i,j)             gVtmp(i,j) = gVtmp(i,j)
298       &         *hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj)       &         *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj)
299            ENDIF            ENDIF
300           ENDDO           ENDDO
301          ENDDO          ENDDO
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22