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

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

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

revision 1.36 by jmc, Mon Mar 12 23:48:24 2007 UTC revision 1.37 by jmc, Fri Oct 19 14:41:39 2007 UTC
# Line 30  C     == Global variables == Line 30  C     == Global variables ==
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
31  #include "PARAMS.h"  #include "PARAMS.h"
32  #include "GRID.h"  #include "GRID.h"
33    #include "RESTART.h"
34  #include "SURFACE.h"  #include "SURFACE.h"
35  #include "DYNVARS.h"  #include "DYNVARS.h"
36  #include "NH_VARS.h"  #include "NH_VARS.h"
# Line 523  c#ifdef ALLOW_ADAMSBASHFORTH_3 Line 524  c#ifdef ALLOW_ADAMSBASHFORTH_3
524  c       CALL ADAMS_BASHFORTH3(  c       CALL ADAMS_BASHFORTH3(
525  c    I                         bi, bj, k,  c    I                         bi, bj, k,
526  c    U                         gW, gwNm,  c    U                         gW, gwNm,
527  c    I                         momStartAB, myIter, myThid )  c    I                         nHydStartAB, myIter, myThid )
528  c#else /* ALLOW_ADAMSBASHFORTH_3 */  c#else /* ALLOW_ADAMSBASHFORTH_3 */
529          CALL ADAMS_BASHFORTH2(          CALL ADAMS_BASHFORTH2(
530       I                         bi, bj, k,       I                         bi, bj, k,
531       U                         gW, gwNm1,       U                         gW, gwNm1,
532       I                         myIter, myThid )       I                         nHydStartAB, myIter, myThid )
533  c#endif /* ALLOW_ADAMSBASHFORTH_3 */  c#endif /* ALLOW_ADAMSBASHFORTH_3 */
534    
535  C--   Dissipation term outside the Adams-Bashforth:  C--   Dissipation term outside the Adams-Bashforth:
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22