/[MITgcm]/MITgcm/pkg/gmredi/gmredi_check.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_check.F

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

revision 1.11 by jmc, Sun Nov 21 15:57:17 2004 UTC revision 1.12 by jmc, Sun Dec 5 22:08:29 2004 UTC
# Line 16  C     === Global variables === Line 16  C     === Global variables ===
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17  #include "PARAMS.h"  #include "PARAMS.h"
18  #include "GMREDI.h"  #include "GMREDI.h"
19    #ifdef ALLOW_GENERIC_ADVDIFF
20  #include "GAD.h"  #include "GAD.h"
21    #endif
22    
23  C     === Routine arguments ===  C     === Routine arguments ===
24  C     myThid -  Number of this instances  C     myThid -  Number of this instances
# Line 108  C     Make sure we are not trying to use Line 110  C     Make sure we are not trying to use
110        ENDIF        ENDIF
111  #endif  #endif
112    
113    #ifdef ALLOW_GENERIC_ADVDIFF
114  C     Check size of overlap region  C     Check size of overlap region
115        IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate        IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate
116       &       .AND. GM_Visbeck_alpha.NE.0.       &       .AND. GM_Visbeck_alpha.NE.0.
# Line 141  c    &     ) THEN Line 144  c    &     ) THEN
144            STOP 'ABNORMAL END: S/R GMREDI_CHECK'            STOP 'ABNORMAL END: S/R GMREDI_CHECK'
145  c       ENDIF  c       ENDIF
146        ENDIF        ENDIF
147    #endif /* ALLOW_GENERIC_ADVDIFF */
148    
149        _END_MASTER(myThid)        _END_MASTER(myThid)
150    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22