/[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.39 by jmc, Fri Dec 3 15:39:11 2004 UTC revision 1.40 by jmc, Fri Apr 15 14:18:50 2005 UTC
# Line 87  CEOP Line 87  CEOP
87  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
88  C     === Local variables ===  C     === Local variables ===
89        LOGICAL calcAdvection        LOGICAL calcAdvection
90          INTEGER iterNb
91    
92  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
93  C--   only the kUp part of fverS is set in this subroutine  C--   only the kUp part of fverS is set in this subroutine
# Line 112  C--   External salinity forcing term(s) Line 113  C--   External salinity forcing term(s)
113       I     myTime,myThid)       I     myTime,myThid)
114    
115        IF ( saltAdamsBashforth ) THEN        IF ( saltAdamsBashforth ) THEN
116            iterNb = myIter
117            IF (staggerTimeStep) iterNb = myIter - 1
118    #ifdef ALLOW_ADAMSBASHFORTH_3
119            CALL ADAMS_BASHFORTH3(
120         I                        bi, bj, k,
121         U                        gS, gsNm,
122         I                        iterNb, myThid )
123    #else
124          CALL ADAMS_BASHFORTH2(          CALL ADAMS_BASHFORTH2(
125       I                        bi, bj, K,       I                        bi, bj, k,
126       U                        gS, gSnm1,       U                        gS, gsNm1,
127       I                        myIter, myThid )       I                        iterNb, myThid )
128    #endif
129        ENDIF        ENDIF
130    
131  C--   External salinity forcing term(s) outside Adams-Bashforth:  C--   External salinity forcing term(s) outside Adams-Bashforth:
# Line 127  C--   External salinity forcing term(s) Line 137  C--   External salinity forcing term(s)
137  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
138        IF (nonlinFreeSurf.GT.0) THEN        IF (nonlinFreeSurf.GT.0) THEN
139          CALL FREESURF_RESCALE_G(          CALL FREESURF_RESCALE_G(
140       I                          bi, bj, K,       I                          bi, bj, k,
141       U                          gS,       U                          gS,
142       I                          myThid )       I                          myThid )
143          IF ( saltAdamsBashforth )          IF ( saltAdamsBashforth ) THEN
144       &  CALL FREESURF_RESCALE_G(  #ifdef ALLOW_ADAMSBASHFORTH_3
145       I                          bi, bj, K,          CALL FREESURF_RESCALE_G(
146       U                          gSnm1,       I                          bi, bj, k,
147         U                          gsNm(1-OLx,1-OLy,1,1,1,1),
148         I                          myThid )
149            CALL FREESURF_RESCALE_G(
150         I                          bi, bj, k,
151         U                          gsNm(1-OLx,1-OLy,1,1,1,2),
152       I                          myThid )       I                          myThid )
153    #else
154            CALL FREESURF_RESCALE_G(
155         I                          bi, bj, k,
156         U                          gsNm1,
157         I                          myThid )
158    #endif
159            ENDIF
160        ENDIF        ENDIF
161  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
162    
Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40
  ViewVC Help
Powered by ViewVC 1.1.22