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

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

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

revision 1.42 by jmc, Sun Nov 6 22:19:08 2005 UTC revision 1.43 by jmc, Tue Dec 13 21:07:13 2005 UTC
# Line 53  C     == Local variables == Line 53  C     == Local variables ==
53        LOGICAL momDissip_In_AB        LOGICAL momDissip_In_AB
54        LOGICAL momStartAB        LOGICAL momStartAB
55        INTEGER i,j        INTEGER i,j
       _RL ab15,ab05  
56        _RL phxFac,phyFac, psFac        _RL phxFac,phyFac, psFac
57        _RL     gUtmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL     gUtmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
58        _RL     gVtmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL     gVtmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 71  C    Allow diagnosis of external forcing Line 70  C    Allow diagnosis of external forcing
70  #endif  #endif
71  CEOP  CEOP
72    
73  C     Adams-Bashforth timestepping weights  C     Start AB with low-order timestepping weights
74        momStartAB = nIter0.EQ.0        momStartAB = nIter0.EQ.0
       IF (myIter .EQ. 0) THEN  
        ab15=1.0  
        ab05=0.0  
       ELSE  
        ab15=1.5+abeps  
        ab05=-0.5-abeps  
       ENDIF  
75    
76  C-- explicit part of the surface potential gradient is added in this S/R  C-- explicit part of the surface potential gradient is added in this S/R
77        psFac = pfFacMom*(1. _d 0 - implicSurfPress)        psFac = pfFacMom*(1. _d 0 - implicSurfPress)
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22