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

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

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

revision 1.3 by edhill, Fri Oct 31 20:35:32 2003 UTC revision 1.4 by jmc, Tue Jul 27 00:16:17 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "PACKAGES_CONFIG.h"  
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CBOP  CBOP
# Line 51  C     ab15, ab05 :: Adams bashforth extr Line 50  C     ab15, ab05 :: Adams bashforth extr
50  CEOP  CEOP
51    
52  C     Adams-Bashforth timestepping weights  C     Adams-Bashforth timestepping weights
53        IF (myIter .EQ. 0) THEN        IF ( myIter.EQ.0 .OR.
54         &    (myIter.EQ.1 .AND. staggerTimeStep) ) THEN
55         ab15=1.0         ab15=1.0
56         ab05=0.0         ab05=0.0
57        ELSE        ELSE
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22