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

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

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

revision 1.34 by adcroft, Tue Sep 18 19:07:35 2001 UTC revision 1.35 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_GT                                       |  C     | SUBROUTINE CALC_GT                                       |
14  C     | o Calculate the temperature tendency terms.              |  C     | o Calculate the temperature tendency terms.              |
# Line 65  C     myThid - Instance number for this Line 65  C     myThid - Instance number for this
65        _RL KappaRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL KappaRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
66        INTEGER k,kUp,kDown,kM1        INTEGER k,kUp,kDown,kM1
67        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
68          _RL     myTime
69          INTEGER myIter
70        INTEGER myThid        INTEGER myThid
       _RL     myCurrentTime  
71    
72  C     == Local variables ==  C     == Local variables ==
73    
# Line 88  C--   the kDown is still required Line 89  C--   the kDown is still required
89  C--   External thermal forcing term(s)  C--   External thermal forcing term(s)
90        CALL EXTERNAL_FORCING_T(        CALL EXTERNAL_FORCING_T(
91       I     iMin,iMax,jMin,jMax,bi,bj,k,       I     iMin,iMax,jMin,jMax,bi,bj,k,
92       I     myCurrentTime,myThid)       I     myTime,myThid)
93  #endif /*  INCLUDE_T_FORCING_CODE */  #endif /*  INCLUDE_T_FORCING_CODE */
94    
95          IF ( tempAdvScheme.EQ.ENUM_CENTERED_2ND
96         & .OR.tempAdvScheme.EQ.ENUM_UPWIND_3RD
97         & .OR.tempAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
98            CALL ADAMS_BASHFORTH2(
99         I                        bi, bj, K,
100         U                        gT, gTnm1,
101         I                        myIter, myThid )
102          ENDIF
103    
104    #ifdef NONLIN_FRSURF
105          IF (nonlinFreeSurf.GT.0) THEN
106            CALL FREESURF_RESCALE_G(
107         I                          bi, bj, K,
108         U                          gT,
109         I                          myThid )
110          ENDIF
111    #endif /* NONLIN_FRSURF */
112    
113        RETURN        RETURN
114        END        END
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22