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

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

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

revision 1.5 by adcroft, Tue Jun 16 17:07:11 1998 UTC revision 1.6 by adcroft, Mon Jun 22 15:26:25 1998 UTC
# Line 9  C     |   pressure gradient. Line 9  C     |   pressure gradient.
9  C     \==========================================================/  C     \==========================================================/
10        SUBROUTINE CORRECTION_STEP( bi, bj, iMin, iMax, jMin, jMax,        SUBROUTINE CORRECTION_STEP( bi, bj, iMin, iMax, jMin, jMax,
11       I                       K, pSurfX, pSurfY,       I                       K, pSurfX, pSurfY,
12       I                       myThid )       I                       myCurrentTime, myThid )
13        implicit none        implicit none
14  ! Common  ! Common
15  #include "SIZE.h"  #include "SIZE.h"
# Line 24  C     == Routine Arguments == Line 24  C     == Routine Arguments ==
24        _RL  pSurfX(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL  pSurfX(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
25        _RL  pSurfY(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL  pSurfY(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
26        INTEGER myThid        INTEGER myThid
27          _RL myCurrentTime
28  C     == Local variables ==  C     == Local variables ==
29        INTEGER i,j        INTEGER i,j
30        _RL hxFac,hyFac,rRhoNil        _RL hxFac,hyFac,rRhoNil
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22