/[MITgcm]/MITgcm/pkg/obcs/obcs_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_calc.F

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

revision 1.9 by heimbach, Wed Sep 22 20:44:37 2004 UTC revision 1.10 by heimbach, Tue Oct 12 18:37:38 2004 UTC
# Line 255  c                OBWv(J,K,bi,bj) = 0. Line 255  c                OBWv(J,K,bi,bj) = 0.
255              J_obc=OB_Jn(I,bi,bj)              J_obc=OB_Jn(I,bi,bj)
256              IF (J_obc.ne.0) THEN              IF (J_obc.ne.0) THEN
257  c                OBNu(I,K,bi,bj) = 0.  c                OBNu(I,K,bi,bj) = 0.
258                  OBWv(I,K,bi,bj) = OBNv(I,K,bi,bj) + Tr_T                  OBNv(I,K,bi,bj) = OBNv(I,K,bi,bj) + Tr_T
259              ENDIF              ENDIF
260            ENDDO            ENDDO
261          ENDDO          ENDDO
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22