/[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.2 by jmc, Wed Aug 9 00:50:10 2006 UTC revision 1.3 by dfer, Wed Apr 9 16:24:18 2008 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
5    
6        SUBROUTINE GCHEM_CHECK( myThid )        SUBROUTINE GCHEM_CHECK( myThid )
# Line 14  C     === Global variables === Line 15  C     === Global variables ===
15  #include "SIZE.h"  #include "SIZE.h"
16  #include "EEPARAMS.h"  #include "EEPARAMS.h"
17  #include "PARAMS.h"  #include "PARAMS.h"
18    #include "GCHEM.h"
19    
20  C     === Routine arguments ===  C     === Routine arguments ===
21  C     myThid -  Number of this instance  C     myThid -  Number of this instance
# Line 37  C     GCHEM needs passive tracer package Line 39  C     GCHEM needs passive tracer package
39           CALL PRINT_ERROR( msgBuf , myThid )           CALL PRINT_ERROR( msgBuf , myThid )
40           STOP 'ABNORMAL END: S/R GCHEM_CHECK'           STOP 'ABNORMAL END: S/R GCHEM_CHECK'
41        ENDIF        ENDIF
42    
43    C     GCHEM cannot (yet!) run cfc and dic together
44          IF ( useDIC .AND. useCFC ) THEN
45             WRITE(msgBuf,'(A)') 'useDIC and useCFC cannot both be .TRUE.'
46             CALL PRINT_ERROR( msgBuf , myThid )
47             STOP 'ABNORMAL END: S/R GCHEM_CHECK'
48          ENDIF
49    
50        _END_MASTER(myThid)        _END_MASTER(myThid)
51    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22