/[MITgcm]/MITgcm/pkg/matrix/matrix_store_tendency.F
ViewVC logotype

Diff of /MITgcm/pkg/matrix/matrix_store_tendency.F

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

revision 1.1 by spk, Mon Apr 18 19:42:16 2005 UTC revision 1.2 by edhill, Tue Apr 19 18:44:50 2005 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6                
7  C !ROUTINE MATRIX_STORE_TENDENCY_EXP.F  C     !ROUTINE MATRIX_STORE_TENDENCY_EXP
8  C This routine accumalates the explicit tendency matrix. Note  C     This routine accumalates the explicit tendency matrix. Note that
9  C that on entry gPtr is the tracer field after explicit advection-  C     on entry gPtr is the tracer field after explicit advection-
10  C diffusion. On exit, gPtr is set to the initial tracer field for  C     diffusion. On exit, gPtr is set to the initial tracer field for
11  C the next step (implicit matrix calculation).  C     the next step (implicit matrix calculation).
12    
13        SUBROUTINE MATRIX_STORE_TENDENCY_EXP( bi, bj, myTime, myIter, myThid )        SUBROUTINE MATRIX_STORE_TENDENCY_EXP(
14         &     bi, bj, myTime, myIter, myThid )
15                
16        IMPLICIT NONE        IMPLICIT NONE
17  #include "SIZE.h"  #include "SIZE.h"
# Line 51  C the next step (implicit matrix calcula Line 52  C the next step (implicit matrix calcula
52        RETURN        RETURN
53        END        END
54                
55  C !ROUTINE MATRIX_STORE_TENDENCY_IMP.F  C     !ROUTINE MATRIX_STORE_TENDENCY_IMP
56  C This routine accumalates the implicit update matrix. Note that  C     This routine accumalates the implicit update matrix. Note that on
57  C on entry PTR is the tracer field after implicit advection-  C     entry PTR is the tracer field after implicit advection-
58  C diffusion. On exit, PTR is set to the initial tracer field.  C     diffusion. On exit, PTR is set to the initial tracer field.
59    
60        SUBROUTINE MATRIX_STORE_TENDENCY_IMP( bi, bj, myTime, myIter, myThid )        SUBROUTINE MATRIX_STORE_TENDENCY_IMP(
61         &     bi, bj, myTime, myIter, myThid )
62                
63        IMPLICIT NONE        IMPLICIT NONE
64  #include "SIZE.h"  #include "SIZE.h"
# Line 95  C diffusion. On exit, PTR is set to the Line 97  C diffusion. On exit, PTR is set to the
97  #endif /* ALLOW_MATRIX */  #endif /* ALLOW_MATRIX */
98        RETURN        RETURN
99        END        END
         
100          
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22