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

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

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

revision 1.1 by jmc, Tue Jan 16 04:38:34 2007 UTC revision 1.2 by jmc, Wed Aug 22 00:26:01 2007 UTC
# Line 121  C     appropriate moments before transpo Line 121  C     appropriate moments before transpo
121       &                MAX(ABS(s1new)-slpmax,sm_yy(i,j))  )       &                MAX(ABS(s1new)-slpmax,sm_yy(i,j))  )
122           sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) )           sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) )
123           sm_yz(i,j) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j)) )           sm_yz(i,j) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j)) )
124           sm_y (i,j) = s1new ;           sm_y (i,j) = s1new
125           sm_yy(i,j) = s2new ;           sm_yy(i,j) = s2new
126          ENDDO          ENDDO
127         ENDDO         ENDDO
128        ENDIF        ENDIF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22