/[MITgcm]/MITgcm/pkg/aim/aim_external_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/aim/aim_external_forcing.F

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

revision 1.3 by cnh, Tue May 29 19:28:53 2001 UTC revision 1.4 by jmc, Fri Aug 24 00:49:51 2001 UTC
# Line 87  c---+----1----+----2----+----3----+----4 Line 87  c---+----1----+----2----+----3----+----4
87          DO i=iMin,iMax          DO i=iMin,iMax
88           IF ( hFacW(i,j,kLev,bi,bj) .NE. 0. ) THEN           IF ( hFacW(i,j,kLev,bi,bj) .NE. 0. ) THEN
89            gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)            gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
90       &     -( (1.-maskC(i-1,j,kLev-1,bi,bj))       &      -( (1.-maskC(i-1,j,kLev-1,bi,bj))*aim_drag(i-1,j,bi,bj)
91       &         *aim_drag(i-1,j,bi,bj)*0.0       &        +(1.-maskC( i ,j,kLev-1,bi,bj))*aim_drag( i ,j,bi,bj)
92       &       +(1.-maskC( i ,j,kLev-1,bi,bj))       &       )* 0.5 _d 0 * uVel(i,j,kLev,bi,bj)
      &         *aim_drag( i ,j,bi,bj)*0.0  
      &      )* 0.5 _d 0 * uVel(i,j,kLev,bi,bj)  
93           ENDIF           ENDIF
94          ENDDO          ENDDO
95         ENDDO         ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22