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

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

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

revision 1.14 by mlosch, Tue Apr 24 11:23:26 2007 UTC revision 1.15 by heimbach, Tue Apr 24 17:54:44 2007 UTC
# Line 166  C     save stress divergence for later Line 166  C     save stress divergence for later
166             ENDDO             ENDDO
167            ENDDO            ENDDO
168           ELSE           ELSE
169    #ifdef ALLOW_EVP
170            DO J=1,sNy            DO J=1,sNy
171             DO I=1,sNx             DO I=1,sNx
172  C     average wind stress over ice and ocean and apply averaged wind  C     average wind stress over ice and ocean and apply averaged wind
# Line 182  C     stress and internal ice stresses t Line 183  C     stress and internal ice stresses t
183       &           + stressDivergenceY(I,J,bi,bj) * SEAICEstressFactor       &           + stressDivergenceY(I,J,bi,bj) * SEAICEstressFactor
184             ENDDO             ENDDO
185            ENDDO            ENDDO
186    #endif
187           ENDIF           ENDIF
188          ENDDO          ENDDO
189         ENDDO         ENDDO
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22