/[MITgcm]/MITgcm/pkg/seaice/seaice_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_init_varia.F

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

revision 1.72 by heimbach, Wed Mar 14 22:55:53 2012 UTC revision 1.73 by jmc, Tue Sep 18 20:14:28 2012 UTC
# Line 198  C--   If OBCS is turned on, close southe Line 198  C--   If OBCS is turned on, close southe
198           DO i=1-OLx,sNx+OLx           DO i=1-OLx,sNx+OLx
199  C Southern boundary  C Southern boundary
200            J_obc = OB_Js(i,bi,bj)            J_obc = OB_Js(i,bi,bj)
201            IF (J_obc.NE.0) THEN            IF ( J_obc.NE.OB_indexNone ) THEN
202             seaiceMaskU(i,J_obc,bi,bj)=   0.0 _d 0             seaiceMaskU(i,J_obc,bi,bj)=   0.0 _d 0
203             seaiceMaskV(i,J_obc,bi,bj)=   0.0 _d 0             seaiceMaskV(i,J_obc,bi,bj)=   0.0 _d 0
204            ENDIF            ENDIF
205           ENDDO           ENDDO
206           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
207  C Western boundary  C Western boundary
208            I_obc=OB_Iw(j,bi,bj)            I_obc = OB_Iw(j,bi,bj)
209            IF (I_obc.NE.0) THEN            IF ( I_obc.NE.OB_indexNone ) THEN
210             seaiceMaskU(I_obc,j,bi,bj)=   0.0 _d 0             seaiceMaskU(I_obc,j,bi,bj)=   0.0 _d 0
211             seaiceMaskV(I_obc,j,bi,bj)=   0.0 _d 0             seaiceMaskV(I_obc,j,bi,bj)=   0.0 _d 0
212            ENDIF            ENDIF
Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73
  ViewVC Help
Powered by ViewVC 1.1.22