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

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

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

revision 1.30 by adcroft, Tue Sep 18 19:07:35 2001 UTC revision 1.31 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           KappaRS,       I           KappaRS,
10       U           fVerS,       U           fVerS,
11       I           myCurrentTime, myThid )       I           myTime,myIter,myThid )
12  C     /==========================================================\  C     /==========================================================\
13  C     | SUBROUTINE CALC_GS                                       |  C     | SUBROUTINE CALC_GS                                       |
14  C     | o Calculate the salt tendency terms.                     |  C     | o Calculate the salt tendency terms.                     |
# Line 65  C     myThid - Instance number for this Line 65  C     myThid - Instance number for this
65        _RL KappaRS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)        _RL KappaRS(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     myCurrentTime        _RL     myTime
69          INTEGER myIter
70        INTEGER myThid        INTEGER myThid
71    
72  C     == Local variables ==  C     == Local variables ==
# Line 87  C--   the kDown is still required Line 88  C--   the kDown is still required
88  C--   External forcing term(s)  C--   External forcing term(s)
89        CALL EXTERNAL_FORCING_S(        CALL EXTERNAL_FORCING_S(
90       I     iMin,iMax,jMin,jMax,bi,bj,k,       I     iMin,iMax,jMin,jMax,bi,bj,k,
91       I     myCurrentTime,myThid)       I     myTime,myThid)
92    
93          IF ( saltAdvScheme.EQ.ENUM_CENTERED_2ND
94         & .OR.saltAdvScheme.EQ.ENUM_UPWIND_3RD
95         & .OR.saltAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
96            CALL ADAMS_BASHFORTH2(
97         I                        bi, bj, K,
98         U                        gS, gSnm1,
99         I                        myIter, myThid )
100          ENDIF
101    
102    #ifdef NONLIN_FRSURF
103          IF (nonlinFreeSurf.GT.0) THEN
104            CALL FREESURF_RESCALE_G(
105         I                          bi, bj, K,
106         U                          gS,
107         I                          myThid )
108          ENDIF
109    #endif /* NONLIN_FRSURF */
110    
111        RETURN        RETURN
112        END        END
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22