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

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

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

revision 1.5 by adcroft, Thu Sep 20 18:00:15 2001 UTC revision 1.6 by cnh, Wed Sep 26 18:09:14 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: CALC_GTR1
8    C     !INTERFACE:
9        SUBROUTINE CALC_GTR1(        SUBROUTINE CALC_GTR1(
10       I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,       I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
11       I           xA,yA,uTrans,vTrans,rTrans,maskUp,       I           xA,yA,uTrans,vTrans,rTrans,maskUp,
12       I           KappaRT,       I           KappaRT,
13       U           fVerT,       U           fVerT,
14       I           myTime,myIter,myThid )       I           myTime,myIter,myThid )
15  C     /==========================================================\  C     !DESCRIPTION: \bv
16  C     | SUBROUTINE CALC_GTR1                                     |  C     *==========================================================*
17  C     | o Calculate the passive tracer tendency terms.           |  C     | SUBROUTINE CALC_GTR1                                      
18  C     |==========================================================|  C     | o Calculate the passive tracer tendency terms.            
19  C     \==========================================================/  C     *==========================================================*
       IMPLICIT NONE  
20    
21    C     !USES:
22          IMPLICIT NONE
23  C     == GLobal variables ==  C     == GLobal variables ==
24  #include "SIZE.h"  #include "SIZE.h"
25  #include "DYNVARS.h"  #include "DYNVARS.h"
# Line 24  C     == GLobal variables == Line 28  C     == GLobal variables ==
28  #include "GAD.h"  #include "GAD.h"
29  #include "TR1.h"  #include "TR1.h"
30    
31    C     !INPUT/OUTPUT PARAMETERS:
32  C     == Routine arguments ==  C     == Routine arguments ==
33  C     fVerT   - Flux of temperature (T) in the vertical  C     fVerT   :: Flux of temperature (T) in the vertical
34  C               direction at the upper(U) and lower(D) faces of a cell.  C               direction at the upper(U) and lower(D) faces of a cell.
35  C     maskUp  - Land mask used to denote base of the domain.  C     maskUp  :: Land mask used to denote base of the domain.
36  C     xA      - Tracer cell face area normal to X  C     xA      :: Tracer cell face area normal to X
37  C     yA      - Tracer cell face area normal to X  C     yA      :: Tracer cell face area normal to X
38  C     uTrans  - Zonal volume transport through cell face  C     uTrans  :: Zonal volume transport through cell face
39  C     vTrans  - Meridional volume transport through cell face  C     vTrans  :: Meridional volume transport through cell face
40  C     rTrans  - Vertical volume transport through cell face  C     rTrans  :: Vertical volume transport through cell face
41  C     bi, bj, iMin, iMax, jMin, jMax - Range of points for which calculation  C     bi, bj, iMin, iMax, jMin, jMax :: Range of points for which calculation
42  C                                      results will be set.  C                                      results will be set.
43  C     myThid - Instance number for this innvocation of CALC_GT  C     myThid - Instance number for this innvocation of CALC_GT
44        _RL fVerT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,2)        _RL fVerT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,2)
# Line 50  C     myThid - Instance number for this Line 55  C     myThid - Instance number for this
55        INTEGER myIter        INTEGER myIter
56        INTEGER myThid        INTEGER myThid
57    
58  C     == Local variables ==  CEOP
59    
60  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
61  C--   only the kUp part of fverT is set in this subroutine  C--   only the kUp part of fverT is set in this subroutine
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22