/[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.42 by heimbach, Thu Dec 8 15:44:33 2005 UTC revision 1.43 by jmc, Sun Feb 26 01:57:24 2006 UTC
# Line 139  C---+----1----+----2----+----3----+----4 Line 139  C---+----1----+----2----+----3----+----4
139       U           fVerS, gS,       U           fVerS, gS,
140       I           myTime, myIter, myThid )       I           myTime, myIter, myThid )
141        ELSE        ELSE
 #endif /* ALLOW_ADAMSBASHFORTH_3 */  
142          CALL GAD_CALC_RHS(          CALL GAD_CALC_RHS(
143       I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,       I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
144       I           xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,       I           xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,
# Line 149  C---+----1----+----2----+----3----+----4 Line 148  C---+----1----+----2----+----3----+----4
148       I           calcAdvection, saltImplVertAdv,       I           calcAdvection, saltImplVertAdv,
149       U           fVerS, gS,       U           fVerS, gS,
150       I           myTime, myIter, myThid )       I           myTime, myIter, myThid )
 #ifdef ALLOW_ADAMSBASHFORTH_3  
151        ENDIF        ENDIF
152  #endif  #else /* ALLOW_ADAMSBASHFORTH_3 */
153            CALL GAD_CALC_RHS(
154         I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
155         I           xA,yA,uTrans,vTrans,rTrans,rTransKp1,maskUp,
156         I           uVel, vVel, wVel,
157         I           diffKhS, diffK4S, KappaRS, gsNm1, salt,
158         I           GAD_SALINITY, saltAdvScheme, saltVertAdvScheme,
159         I           calcAdvection, saltImplVertAdv,
160         U           fVerS, gS,
161         I           myTime, myIter, myThid )
162    #endif /* ALLOW_ADAMSBASHFORTH_3 */
163    
164  C--   External salinity forcing term(s) inside Adams-Bashforth:  C--   External salinity forcing term(s) inside Adams-Bashforth:
165        IF ( saltForcing .AND. forcing_In_AB )        IF ( saltForcing .AND. forcing_In_AB )
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22