/[MITgcm]/MITgcm/verification/aim.5l_cs/code/calc_gs.F
ViewVC logotype

Diff of /MITgcm/verification/aim.5l_cs/code/calc_gs.F

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

revision 1.1 by cnh, Mon Jun 18 17:40:06 2001 UTC revision 1.2 by adcroft, Wed Sep 19 02:43:27 2001 UTC
# Line 13  CStartOfInterFace Line 13  CStartOfInterFace
13       I           xA,yA,uTrans,vTrans,rTrans,maskUp,       I           xA,yA,uTrans,vTrans,rTrans,maskUp,
14       I           KappaRS,       I           KappaRS,
15       U           fVerS,       U           fVerS,
16       I           myCurrentTime, myThid )       I           myCurrentTime,myIter,myThid )
17  C     /==========================================================\  C     /==========================================================\
18  C     | SUBROUTINE CALC_GS                                       |  C     | SUBROUTINE CALC_GS                                       |
19  C     | o Calculate the salt tendency terms.                     |  C     | o Calculate the salt tendency terms.                     |
# Line 48  C     == GLobal variables == Line 48  C     == GLobal variables ==
48  #include "PARAMS.h"  #include "PARAMS.h"
49  #include "GRID.h"  #include "GRID.h"
50  #include "FFIELDS.h"  #include "FFIELDS.h"
51    #include "GAD.h"
52    
53  C     == Routine arguments ==  C     == Routine arguments ==
54  C     fVerS   - Flux of salt (S) in the vertical  C     fVerS   - Flux of salt (S) in the vertical
# Line 72  C     myThid - Instance number for this Line 73  C     myThid - Instance number for this
73        INTEGER k,kUp,kDown,kM1        INTEGER k,kUp,kDown,kM1
74        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
75        _RL     myCurrentTime        _RL     myCurrentTime
76          INTEGER myIter
77        INTEGER myThid        INTEGER myThid
78  CEndOfInterface  CEndOfInterface
79    
# Line 469  C--   External forcing term(s) Line 471  C--   External forcing term(s)
471       I     iMin,iMax,jMin,jMax,bi,bj,k,       I     iMin,iMax,jMin,jMax,bi,bj,k,
472       I     myCurrentTime,myThid)       I     myCurrentTime,myThid)
473    
474          IF ( saltAdvScheme.EQ.ENUM_CENTERED_2ND
475         & .OR.saltAdvScheme.EQ.ENUM_UPWIND_3RD
476         & .OR.saltAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN
477            CALL ADAMS_BASHFORTH2(
478         I                        bi, bj, K,
479         U                        gS, gSnm1,
480         I                        myIter, myThid )
481          ENDIF
482    
483    #ifdef NONLIN_FRSURF
484          IF (nonlinFreeSurf.GT.0) THEN
485            CALL FREESURF_RESCALE_G(
486         I                          bi, bj, K,
487         U                          gS,
488         I                          myThid )
489          ENDIF
490    #endif /* NONLIN_FRSURF */
491    
492        RETURN        RETURN
493        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22