/[MITgcm]/MITgcm/model/src/thermodynamics.F
ViewVC logotype

Diff of /MITgcm/model/src/thermodynamics.F

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

revision 1.90 by jmc, Fri Apr 15 14:06:15 2005 UTC revision 1.91 by spk, Wed Apr 20 15:52:22 2005 UTC
# Line 107  C     == Global variables === Line 107  C     == Global variables ===
107  # endif  # endif
108  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
109    
110    #ifdef ALLOW_MATRIX
111    # include "MATRIX.h"
112    #endif /* ALLOW_MATRIX */
113    
114  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
115  C     == Routine arguments ==  C     == Routine arguments ==
# Line 514  CADJ &   , key = kkey, byte = isbyte Line 517  CADJ &   , key = kkey, byte = isbyte
517  C--     end of thermodynamic k loop (Nr:1)  C--     end of thermodynamic k loop (Nr:1)
518          ENDDO          ENDDO
519    
520    C       All explicit advection/diffusion/sources should now be
521    C       done. The updated tracer field is in gPtr. Accumalate
522    C       explicit tendency and also reset gPtr to initial tracer
523    C       field for implicit matrix calculation
524    
525    #ifdef ALLOW_MATRIX
526            IF (useMATRIX)
527         &    CALL MATRIX_STORE_TENDENCY_EXP( bi, bj, myTime, myIter, myThid )
528    #endif
529    
530          iMin = 1          iMin = 1
531          iMax = sNx          iMax = sNx
532          jMin = 1          jMin = 1
Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91
  ViewVC Help
Powered by ViewVC 1.1.22