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

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

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

revision 1.1 by jmc, Wed Jan 7 21:37:59 2004 UTC revision 1.2 by edhill, Mon Mar 29 03:33:51 2004 UTC
# Line 12  C     !INTERFACE: Line 12  C     !INTERFACE:
12       O           a3d, b3d, c3d,       O           a3d, b3d, c3d,
13       I           myThid )       I           myThid )
14    
15  C     !DESCRIPTION: \bv  C     !DESCRIPTION:
16  C     *==========================================================*  C     Compute matrix element to solve vertical advection implicitly
17  C     | S/R GAD_C2_IMPL_R  C     using centered second-order scheme The contribution of vertical
18  C     | o Compute matrix element to solve vertical advection  C     transport at interface k is added to matrix lines k and k-1.
 C     |   implicitly using centered second-order scheme  
 C     *==========================================================*  
 C     | o contribution of vertical transport at interface k  
 C     |   is added to matrix lines k & k-1  
 C     *==========================================================*  
 C     \ev  
19    
20  C     !USES:  C     !USES:
21        IMPLICIT NONE        IMPLICIT NONE
# Line 34  C     == Global variables === Line 28  C     == Global variables ===
28    
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine Arguments ==  C     == Routine Arguments ==
31  C     bi,bj                :: tile indices  C     bi,bj         :: tile indices
32  C     k                    :: vertical level  C     k             :: vertical level
33  C     iMin,iMax,jMin,jMax  :: computation domain  C     iMin,iMax     :: computation domain
34  C     deltaTarg            :: time step  C     jMin,jMax     :: computation domain
35  C     rTrans               :: vertical volume transport  C     deltaTarg     :: time step
36  C     a3d                  :: lower diagonal of the tridiagonal matrix  C     rTrans        :: vertical volume transport
37  C     b3d                  :: main  diagonal of the tridiagonal matrix  C     a3d           :: lower diagonal of the tridiagonal matrix
38  C     c3d                  :: upper diagonal of the tridiagonal matrix  C     b3d           :: main  diagonal of the tridiagonal matrix
39  C     myThid               :: thread number  C     c3d           :: upper diagonal of the tridiagonal matrix
40    C     myThid        :: thread number
41        INTEGER bi,bj,k        INTEGER bi,bj,k
42        INTEGER iMin,iMax,jMin,jMax        INTEGER iMin,iMax,jMin,jMax
43        _RL deltaTarg        _RL deltaTarg
# Line 53  C     myThid               :: thread num Line 48  C     myThid               :: thread num
48        INTEGER myThid        INTEGER myThid
49    
50  C     == Local Variables ==  C     == Local Variables ==
51  C     i,j                  :: loop indices  C     i,j           :: loop indices
52  C     rCenter              :: centered contribution  C     rCenter       :: centered contribution
53        INTEGER i,j        INTEGER i,j
54        _RL rCenter        _RL rCenter
55  CEOP  CEOP
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22