/[MITgcm]/MITgcm/pkg/mom_common/mom_calc_visc.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_common/mom_calc_visc.F

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

revision 1.23 by baylor, Fri Jul 7 18:52:10 2006 UTC revision 1.24 by mlosch, Thu Nov 23 09:49:36 2006 UTC
# Line 214  C     == Local variables == Line 214  C     == Local variables ==
214        IF ( calcLeith .OR. calcSmag ) THEN        IF ( calcLeith .OR. calcSmag ) THEN
215         STOP 'calcLeith or calcSmag not implemented for ADJOINT'         STOP 'calcLeith or calcSmag not implemented for ADJOINT'
216        ENDIF        ENDIF
217    #endif
218        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
219          DO i=1-Olx,sNx+Olx          DO i=1-Olx,sNx+Olx
220            viscAh_D(i,j)=viscAhD            viscAh_D(i,j)=viscAhD
# Line 238  c Line 239  c
239            viscA4_ZLthD(i,j)= 0. _d 0            viscA4_ZLthD(i,j)= 0. _d 0
240          ENDDO          ENDDO
241        ENDDO        ENDDO
 #endif  
   
   
242    
243  C     - Viscosity  C     - Viscosity
244        IF (useVariableViscosity) THEN        IF (useVariableViscosity) THEN
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22