/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_diff_y.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_diff_y.F

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

revision 1.3 by adcroft, Fri Sep 21 13:11:43 2001 UTC revision 1.4 by jmc, Tue Dec 5 05:26:46 2006 UTC
# Line 7  CBOP Line 7  CBOP
7  C !ROUTINE: GAD_DIFF_Y  C !ROUTINE: GAD_DIFF_Y
8    
9  C !INTERFACE: ==========================================================  C !INTERFACE: ==========================================================
10        SUBROUTINE GAD_DIFF_Y(        SUBROUTINE GAD_DIFF_Y(
11       I           bi,bj,k,       I           bi,bj,k,
12       I           yA, diffKh,       I           yA, diffKh,
13       I           tracer,       I           tracer,
# Line 54  CEOP Line 54  CEOP
54        DO j=1-Oly+1,sNy+Oly        DO j=1-Oly+1,sNy+Oly
55         DO i=1-Olx,sNx+Olx         DO i=1-Olx,sNx+Olx
56          dfy(i,j) = -diffKh*yA(i,j)          dfy(i,j) = -diffKh*yA(i,j)
57       &      *_recip_dyC(i,j,bi,bj)       &           *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
58       &      *(Tracer(i,j)-Tracer(i,j-1))       &           *(tracer(i,j)-tracer(i,j-1))
59  #ifdef ISOTROPIC_COS_SCALING  #ifdef ISOTROPIC_COS_SCALING
60       &      *CosFacV(j,bi,bj)       &           *cosFacV(j,bi,bj)
61  #endif  #endif
62         ENDDO         ENDDO
63        ENDDO        ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22