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

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

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

revision 1.38 by jmc, Thu Oct 21 21:25:33 2004 UTC revision 1.39 by jmc, Fri Dec 3 15:39:11 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 47  C     == GLobal variables == Line 48  C     == GLobal variables ==
48  #include "DYNVARS.h"  #include "DYNVARS.h"
49  #include "EEPARAMS.h"  #include "EEPARAMS.h"
50  #include "PARAMS.h"  #include "PARAMS.h"
51    #include "PACKAGES_CONFIG.h"
52    #ifdef ALLOW_GENERIC_ADVDIFF
53  #include "GAD.h"  #include "GAD.h"
54    #endif
55    
56  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
57  C     == Routine arguments ==  C     == Routine arguments ==
# Line 80  C     myThid :: Instance number for this Line 84  C     myThid :: Instance number for this
84    
85  CEOP  CEOP
86    
87    #ifdef ALLOW_GENERIC_ADVDIFF
88  C     === Local variables ===  C     === Local variables ===
89        LOGICAL calcAdvection        LOGICAL calcAdvection
90    
# Line 133  C--   External salinity forcing term(s) Line 138  C--   External salinity forcing term(s)
138        ENDIF        ENDIF
139  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
140    
141    #endif /* ALLOW_GENERIC_ADVDIFF */
142    
143        RETURN        RETURN
144        END        END
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22