/[MITgcm]/MITgcm/model/src/packages_check.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_check.F

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

revision 1.2 by heimbach, Mon Sep 11 20:42:57 2000 UTC revision 1.3 by heimbach, Wed Sep 13 17:11:34 2000 UTC
# Line 1  Line 1 
1  C $Header$   $Header$
2    
3  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
4    
# Line 23  C     === Local variables === Line 23  C     === Local variables ===
23  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
24        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
25    
26    #ifdef ALLOW_KPP
27  #ifndef ALLOW_KPP        IF (useKPP) CALL KPP_CHECK( myThid )
       IF (useKPP) THEN  
        WRITE(msgBuf,'(A)') '#define ALLOW_KPP to use useKPP'  
        CALL PRINT_ERROR( msgBuf , 1)  
        STOP 'ABNORMAL END: S/R PACKAGE_CHECK'  
       ENDIF  
28  #else  #else
29        WRITE(msgBuf,'(A)') 'PACKAGE_CHECK: #define ALLOW_KPP'        IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP')
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  
      &  SQUEEZE_RIGHT , 1)  
 C     KPP needs convection turned off (will be packaged later)  
       IF (useKPP) THEN  
        IF (cAdjFreq.NE.0.  .OR.  
      &     ivdc_kappa.NE.0.) THEN  
         WRITE(msgBuf,'(A)') 'Some form of convection has been enabled'  
         CALL PRINT_ERROR( msgBuf , 1)  
         STOP 'ABNORMAL END: S/R PACKAGE_CHECK'  
        ENDIF  
        IF (.NOT.implicitDiffusion ) THEN  
         WRITE(msgBuf,'(A)') 'KPP needs implicitDiffusion to be enabled'  
         CALL PRINT_ERROR( msgBuf , 1)  
         STOP 'ABNORMAL END: S/R PACKAGE_CHECK'  
        ENDIF  
        IF (.NOT.implicitViscosity) THEN  
         WRITE(msgBuf,'(A)') 'KPP needs implicitViscosity to be enabled'  
         CALL PRINT_ERROR( msgBuf , 1)  
         STOP 'ABNORMAL END: S/R PACKAGE_CHECK'  
        ENDIF  
       ENDIF  
30  #endif  #endif
31    
32  #ifndef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
       IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI')  
 #else  
33        IF (useGMRedi) CALL GMREDI_CHECK( myThid )        IF (useGMRedi) CALL GMREDI_CHECK( myThid )
34    #else
35          IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI')
36  #endif  #endif
37    
38        return        return
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22