/[MITgcm]/MITgcm_contrib/submesoscale/code/gmredi_check.F
ViewVC logotype

Diff of /MITgcm_contrib/submesoscale/code/gmredi_check.F

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

revision 1.1 by dimitri, Fri May 30 21:51:23 2008 UTC revision 1.2 by dimitri, Fri May 30 22:13:42 2008 UTC
# Line 131  C     Make sure we are not trying to use Line 131  C     Make sure we are not trying to use
131        ENDIF        ENDIF
132  #endif  #endif
133    
134    #ifdef GM_SUBMESO
135          IF (GM_SM_Ce .gt. 0 _d 0) THEN
136    C     Make sure we are not trying to use some arrays that are unavailable
137           IF ((.not.GM_ExtraDiag ).and.(.not.GM_AdvForm)) THEN
138            WRITE(msgBuf,'(A)')
139         &   ' GMREDI: GM_SUBMESO needs GM_EXTRA_DIAGONAL or GM_BOLUS_ADVEC'
140            CALL PRINT_ERROR( msgBuf, myThid )
141            WRITE(msgBuf,'(A)')
142         &   ' GMREDI_CHECK: add #define GM_EXTRA_DIAGONAL'
143            CALL PRINT_ERROR( msgBuf, myThid )
144            STOP 'ABNORMAL END: S/R GMREDI_CHECK'
145           ENDIF
146          ENDIF
147    #endif
148    
149    
150  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
151        IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate        IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate
152       &       .AND. usePTRACERS ) THEN       &       .AND. usePTRACERS ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22