/[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.21 by jmc, Tue Aug 16 22:42:49 2005 UTC revision 1.22 by jmc, Tue Nov 8 02:14:10 2005 UTC
# Line 26  C     !USES: Line 26  C     !USES:
26        IMPLICIT NONE        IMPLICIT NONE
27  C     == Global variables ==  C     == Global variables ==
28  #include "SIZE.h"  #include "SIZE.h"
 #include "DYNVARS.h"  
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30  #include "PARAMS.h"  #include "PARAMS.h"
31  #include "GRID.h"  #include "GRID.h"
32  #include "GW.h"  #include "DYNVARS.h"
33  #include "CG3D.h"  #include "NH_VARS.h"
34    
35  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
36  C     == Routine arguments ==  C     == Routine arguments ==
# Line 76  C     i,j,k - Loop counters Line 75  C     i,j,k - Loop counters
75        PARAMETER(Half=0.5D0)        PARAMETER(Half=0.5D0)
76  CEOP  CEOP
77    
 ceh3 needs an IF ( useNONHYDROSTATIC ) THEN  
   
78        iMin = 1        iMin = 1
79        iMax = sNx        iMax = sNx
80        jMin = 1        jMin = 1
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22