/[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.2 by adcroft, Tue Mar 14 17:47:25 2000 UTC revision 1.3 by adcroft, Fri Mar 24 18:31:31 2000 UTC
# Line 22  C     == Routine arguments == Line 22  C     == Routine arguments ==
22  C     myThid - Instance number for this innvocation of CALC_GW  C     myThid - Instance number for this innvocation of CALC_GW
23        INTEGER myThid        INTEGER myThid
24    
25    #ifdef ALLOW_NONHYDROSTATIC
26    
27  C     == Local variables ==  C     == Local variables ==
28        INTEGER bi,bj,iMin,iMax,jMin,jMax        INTEGER bi,bj,iMin,iMax,jMin,jMax
29        _RL      aF (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL      aF (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 48  C     I,J,K - Loop counters Line 50  C     I,J,K - Loop counters
50        _RL  Half        _RL  Half
51        PARAMETER(Half=0.5D0)        PARAMETER(Half=0.5D0)
52    
 #ifdef ALLOW_NONHYDROSTATIC  
   
53  #define I0 1  #define I0 1
54  #define In sNx  #define In sNx
55  #define J0 1  #define J0 1
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22