/[MITgcm]/MITgcm_contrib/MPMice/beaufort/code/cpl_mpmice.F
ViewVC logotype

Diff of /MITgcm_contrib/MPMice/beaufort/code/cpl_mpmice.F

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

revision 1.6 by dimitri, Fri Feb 3 18:00:51 2012 UTC revision 1.7 by dimitri, Fri Feb 3 18:07:17 2012 UTC
# Line 801  C     Receive u surface stress Line 801  C     Receive u surface stress
801         DO bi=1,nSx         DO bi=1,nSx
802          DO j=1,sNy          DO j=1,sNy
803           DO i=1,sNx           DO i=1,sNx
804            fu(i,j,bi,bj) = AREA(i,j,bi,bj) * local(i,j,bi,bj)            fu(i,j,bi,bj) = AREA(i,j,bi,bj) * local(i,j,bi,bj) +
805       &                (1.-AREA(i,j,bi,bj) * fu_tmp(i,j,bi,bj)       &                (1.-AREA(i,j,bi,bj) * fu_tmp(i,j,bi,bj)
806           ENDDO           ENDDO
807          ENDDO          ENDDO
# Line 833  C     Receive v surface stress Line 833  C     Receive v surface stress
833         DO bi=1,nSx         DO bi=1,nSx
834          DO j=1,sNy          DO j=1,sNy
835           DO i=1,sNx           DO i=1,sNx
836            fv(i,j,bi,bj) = AREA(i,j,bi,bj) * local(i,j,bi,bj)            fv(i,j,bi,bj) = AREA(i,j,bi,bj) * local(i,j,bi,bj) +
837       &                (1.-AREA(i,j,bi,bj) * fv_tmp(i,j,bi,bj)       &                (1.-AREA(i,j,bi,bj) * fv_tmp(i,j,bi,bj)
838           ENDDO           ENDDO
839          ENDDO          ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22