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

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

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

revision 1.4 by edhill, Mon Mar 29 03:33:51 2004 UTC revision 1.5 by jmc, Fri Nov 12 17:31:16 2004 UTC
# Line 202  c          localTijk(i,j,k)     = gTrace Line 202  c          localTijk(i,j,k)     = gTrace
202            ENDDO            ENDDO
203          ENDDO          ENDDO
204    
205          IF (K.GE.2) THEN  #ifdef ALLOW_AIM
206    C- a hack to prevent Water-Vapor vert.transport into the stratospheric level Nr
207            IF ( K.GE.2 .AND.
208         &     (.NOT.useAIM .OR.tracerIdentity.NE.GAD_SALINITY .OR.K.LT.Nr)
209         &              ) THEN
210    #else
211            IF ( K.GE.2 ) THEN
212    #endif
213    
214           IF ( advectionScheme.EQ.ENUM_CENTERED_2ND ) THEN           IF ( advectionScheme.EQ.ENUM_CENTERED_2ND ) THEN
215            diagonalNumber = 3            diagonalNumber = 3
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22