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

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

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

revision 1.2 by mlosch, Sun Apr 22 19:56:22 2007 UTC revision 1.3 by mlosch, Mon Apr 23 14:19:18 2007 UTC
# Line 78  C     one metric term is missing Line 78  C     one metric term is missing
78           ENDDO           ENDDO
79          ENDDO          ENDDO
80          IF ( SEAICE_no_slip ) THEN          IF ( SEAICE_no_slip ) THEN
81  C     no slip boundary conditions are applied as a body force  C     no slip boundary conditions apply only to e12
 C     following mom_u/v_sidedrag  
82           k = 1           k = 1
83           DO j=1-Oly+1,sNy+Oly-1           DO j=1-Oly+1,sNy+Oly-1
84            DO i=1-Olx+1,sNx+Olx-1            DO i=1-Olx+1,sNx+Olx-1
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22