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

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

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

revision 1.2 by jmc, Wed Aug 15 22:35:41 2007 UTC revision 1.3 by jmc, Wed Aug 22 00:26:01 2007 UTC
# Line 75  C     appropriate moments before transpo Line 75  C     appropriate moments before transpo
75       &                 MAX(ABS(s1new)-slpmax,sm_zz(i,j,k))  )       &                 MAX(ABS(s1new)-slpmax,sm_zz(i,j,k))  )
76            sm_xz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j,k)) )            sm_xz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j,k)) )
77            sm_yz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j,k)) )            sm_yz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j,k)) )
78            sm_z (i,j,k) = s1new ;            sm_z (i,j,k) = s1new
79            sm_zz(i,j,k) = s2new ;            sm_zz(i,j,k) = s2new
80           ENDDO           ENDDO
81          ENDDO          ENDDO
82         ENDDO         ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22