/[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.3 by adcroft, Tue Sep 18 19:07:35 2001 UTC revision 1.4 by adcroft, Wed Sep 19 02:43:27 2001 UTC
# Line 8  C $Name$ Line 8  C $Name$
8       I           xA,yA,uTrans,vTrans,rTrans,maskUp,       I           xA,yA,uTrans,vTrans,rTrans,maskUp,
9       I           KappaRT,       I           KappaRT,
10       U           fVerT,       U           fVerT,
11       I           myCurrentTime, myThid )       I           myTime,myIter,myThid )
12  C     /==========================================================\  C     /==========================================================\
13  C     | SUBROUTINE CALC_GTR1                                     |  C     | SUBROUTINE CALC_GTR1                                     |
14  C     | o Calculate the passive tracer tendency terms.           |  C     | o Calculate the passive tracer tendency terms.           |
# Line 46  C     myThid - Instance number for this Line 46  C     myThid - Instance number for this
46        _RL KappaRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL KappaRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
47        INTEGER k,kUp,kDown,kM1        INTEGER k,kUp,kDown,kM1
48        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
49          _RL     myTime
50          INTEGER myIter
51        INTEGER myThid        INTEGER myThid
       _RL     myCurrentTime  
52    
53  C     == Local variables ==  C     == Local variables ==
54    
# Line 69  C--   the kDown is still required Line 70  C--   the kDown is still required
70  C--   External thermal forcing term(s)  C--   External thermal forcing term(s)
71        CALL EXTERNAL_FORCING_TR(        CALL EXTERNAL_FORCING_TR(
72       I     iMin,iMax,jMin,jMax,bi,bj,k,       I     iMin,iMax,jMin,jMax,bi,bj,k,
73       I     myCurrentTime,myThid)       I     myTime,myThid)
74  #endif /*  INCLUDE_TR_FORCING_CODE */  #endif /*  INCLUDE_TR_FORCING_CODE */
75    
76          IF ( tracerAdvScheme.EQ.ENUM_CENTERED_2ND
77         & .OR.tracerAdvScheme.EQ.ENUM_UPWIND_3RD
78         & .OR.tracerAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
79            CALL ADAMS_BASHFORTH2(
80         I                        bi, bj, K,
81         U                        gT, gTnm1,
82         I                        myIter, myThid )
83          ENDIF
84    
85    #ifdef NONLIN_FRSURF
86          IF (nonlinFreeSurf.GT.0) THEN
87            CALL FREESURF_RESCALE_G(
88         I                          bi, bj, K,
89         U                          gTr1,
90         I                          myThid )
91          ENDIF
92    #endif /* NONLIN_FRSURF */
93    
94        RETURN        RETURN
95        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22