/[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.3 by dfer, Wed Apr 9 16:24:18 2008 UTC revision 1.4 by jahn, Tue Jun 30 16:43:00 2009 UTC
# Line 47  C     GCHEM cannot (yet!) run cfc and di Line 47  C     GCHEM cannot (yet!) run cfc and di
47           STOP 'ABNORMAL END: S/R GCHEM_CHECK'           STOP 'ABNORMAL END: S/R GCHEM_CHECK'
48        ENDIF        ENDIF
49    
50    C     GCHEM cannot run darwin and dic together
51          IF ( useDARWIN .AND. useDIC ) THEN
52            WRITE(msgBuf,'(A)') 'useDARWIN and useDIC cannot both be .TRUE.'
53            CALL PRINT_ERROR( msgBuf , myThid )
54            STOP 'ABNORMAL END: S/R GCHEM_CHECK'
55          ENDIF
56    
57    C     GCHEM cannot run darwin and cfc together
58          IF ( useDARWIN .AND. useCFC ) THEN
59            WRITE(msgBuf,'(A)') 'useDARWIN and useCFC cannot both be .TRUE.'
60            CALL PRINT_ERROR( msgBuf , myThid )
61            STOP 'ABNORMAL END: S/R GCHEM_CHECK'
62          ENDIF
63    
64    #ifdef ALLOW_DARWIN
65    C     run checks specific to darwin
66          IF ( useDARWIN ) THEN
67            CALL DARWIN_CHECK( myThid )
68          ENDIF
69    #endif
70    
71        _END_MASTER(myThid)        _END_MASTER(myThid)
72    
73  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22