/[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.13 by jmc, Sun Aug 6 23:08:54 2006 UTC revision 1.14 by jmc, Tue Sep 18 21:24:13 2007 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "GMREDI_OPTIONS.h"  #include "GMREDI_OPTIONS.h"
5    #ifdef ALLOW_PTRACERS
6    # include "PTRACERS_OPTIONS.h"
7    #endif
8    
9  CBOP  CBOP
10  C     !ROUTINE: GMREDI_CHECK  C     !ROUTINE: GMREDI_CHECK
# Line 25  C     === Global variables === Line 28  C     === Global variables ===
28  #include "PARAMS.h"  #include "PARAMS.h"
29  #include "GMREDI.h"  #include "GMREDI.h"
30  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
31  #include "GAD.h"  # include "GAD.h"
32    #endif
33    #ifdef ALLOW_PTRACERS
34    # include "PTRACERS_SIZE.h"
35    # include "PTRACERS.h"
36  #endif  #endif
37    
38  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 39  C     === Local variables === Line 46  C     === Local variables ===
46  C     msgBuf :: Informational/error meesage buffer  C     msgBuf :: Informational/error meesage buffer
47        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
48  CEOP  CEOP
49    #ifdef ALLOW_PTRACERS
50          INTEGER iTr
51          LOGICAL redFlag
52    #endif
53    
54        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
55    
# Line 120  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 ALLOW_PTRACERS
135          IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate
136         &       .AND. usePTRACERS ) THEN
137            redFlag = .FALSE.
138            DO iTr=1,PTRACERS_numInUse
139             IF ( .NOT.PTRACERS_useGMRedi(iTr) ) THEN
140              redFlag = .TRUE.
141              WRITE(msgBuf,'(2A,I3,A,L5)') ' GMREDI_CHECK:',
142         &     ' pTracers_useGMRedi(',iTr,' )=', PTRACERS_useGMRedi(iTr)
143              CALL PRINT_ERROR( msgBuf, myThid )
144             ENDIF
145            ENDDO
146            IF ( redFlag ) THEN
147              WRITE(msgBuf,'(2A)') ' GMREDI_CHECK:',
148         &     ' but GM Advective Form applies to all tracers !'
149              CALL PRINT_ERROR( msgBuf, myThid )
150              STOP 'ABNORMAL END: S/R GMREDI_CHECK'
151            ENDIF
152          ENDIF
153    #endif /* ALLOW_PTRACERS */
154    
155  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
156  C     Check size of overlap region  C     Check size of overlap region
157        IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate        IF ( GM_AdvForm .AND. .NOT.GM_AdvSeparate
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22