/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_advection.F

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

revision 1.37 by jmc, Sat Oct 22 19:59:45 2005 UTC revision 1.38 by jmc, Sat Nov 5 01:01:51 2005 UTC
# Line 138  C [N,S,E,W]_edge :: true if N,S,E,W edge Line 138  C [N,S,E,W]_edge :: true if N,S,E,W edge
138        LOGICAL calc_fluxes_X, calc_fluxes_Y, withSigns        LOGICAL calc_fluxes_X, calc_fluxes_Y, withSigns
139        LOGICAL interiorOnly, overlapOnly        LOGICAL interiorOnly, overlapOnly
140        INTEGER nipass,ipass        INTEGER nipass,ipass
141        INTEGER myTile, nCFace        INTEGER nCFace
142        LOGICAL N_edge, S_edge, E_edge, W_edge        LOGICAL N_edge, S_edge, E_edge, W_edge
143    #ifdef ALLOW_EXCH2
144          INTEGER myTile
145    #endif
146  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
147        CHARACTER*8 diagName        CHARACTER*8 diagName
148        CHARACTER*4 GAD_DIAG_SUFX, diagSufx        CHARACTER*4 GAD_DIAG_SUFX, diagSufx
# Line 215  C--   Set tile-specific parameters for h Line 218  C--   Set tile-specific parameters for h
218  #endif  #endif
219        ELSE        ELSE
220         nipass=2         nipass=2
221           nCFace = bi
222         N_edge = .FALSE.         N_edge = .FALSE.
223         S_edge = .FALSE.         S_edge = .FALSE.
224         E_edge = .FALSE.         E_edge = .FALSE.
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22