/[MITgcm]/MITgcm/pkg/gchem/gchem_check.F
ViewVC logotype

Diff of /MITgcm/pkg/gchem/gchem_check.F

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

revision 1.1 by mlosch, Fri Nov 19 01:34:27 2004 UTC revision 1.2 by jmc, Wed Aug 9 00:50:10 2006 UTC
# Line 16  C     === Global variables === Line 16  C     === Global variables ===
16  #include "PARAMS.h"  #include "PARAMS.h"
17    
18  C     === Routine arguments ===  C     === Routine arguments ===
19  C     myThid -  Number of this instance  C     myThid -  Number of this instance
20        INTEGER myThid        INTEGER myThid
21    
22  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
# Line 25  C     === Local variables === Line 25  C     === Local variables ===
25  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
26        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
27    
28          _BEGIN_MASTER(myThid)
29    
30        WRITE(msgBuf,'(A)') 'GCHEM_CHECK: #define ALLOW_GCHEM'        WRITE(msgBuf,'(A)') 'GCHEM_CHECK: #define ALLOW_GCHEM'
31        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
32       &     SQUEEZE_RIGHT , 1)       &     SQUEEZE_RIGHT , myThid )
33    
34  C     GCHEM needs passive tracer package  C     GCHEM needs passive tracer package
35        IF ( .NOT.usePTRACERS) THEN        IF ( .NOT.usePTRACERS) THEN
36           WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM'           WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM'
37           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_ERROR( msgBuf , myThid )
38           STOP 'ABNORMAL END: S/R GCHEM_CHECK'           STOP 'ABNORMAL END: S/R GCHEM_CHECK'
39        ENDIF        ENDIF
40    
41          _END_MASTER(myThid)
42    
43  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
44    
45        return        RETURN
46        end        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22