/[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.20 by mlosch, Thu Feb 28 17:25:41 2013 UTC revision 1.22 by mlosch, Fri May 26 09:08:32 2017 UTC
# Line 7  C $Name$ Line 7  C $Name$
7  #else  #else
8  # define OBCS_UVICE_OLD  # define OBCS_UVICE_OLD
9  #endif  #endif
10    #ifdef ALLOW_AUTODIFF
11    # include "AUTODIFF_OPTIONS.h"
12    #endif
13    
14  CBOP  CBOP
15  C     !ROUTINE: SEAICE_CALC_STRAINRATES  C     !ROUTINE: SEAICE_CALC_STRAINRATES
# Line 162  c$$$     &         - hFacV * k1AtZ(i,j,b Line 165  c$$$     &         - hFacV * k1AtZ(i,j,b
165  c$$$     &         - hFacU * k2AtZ(i,j,bi,bj) * uave(i,j)  c$$$     &         - hFacU * k2AtZ(i,j,bi,bj) * uave(i,j)
166           ENDDO           ENDDO
167          ENDDO          ENDDO
   
168         ENDDO         ENDDO
169        ENDDO        ENDDO
170    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22