/[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.3 by heimbach, Wed Sep 13 17:11:34 2000 UTC revision 1.7 by jmc, Tue Feb 20 19:39:42 2001 UTC
# Line 1  Line 1 
1   $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6        SUBROUTINE PACKAGES_CHECK( myThid )        SUBROUTINE PACKAGES_CHECK( myThid )
7  C     /==========================================================\  C     /==========================================================\
8  C     | SUBROUTINE PACKAGES_CHECK                                |  C     | SUBROUTINE PACKAGES_CHECK                                |
9  C     | o Check dependances between selected packages            |  C     | o Check runtime activated packages have been built in.   |
10  C     |==========================================================|  C     |==========================================================|
11    C     | All packages can be selected/deselected at build time    |
12    C     | ( when code is compiled ) and activated/deactivated at   |
13    C     | runtime. This routine does a quick check to trap packages|
14    C     | that were activated at runtime but that were not compiled|
15    C     | in at build time.                                        |
16  C     \==========================================================/  C     \==========================================================/
17        IMPLICIT NONE        IMPLICIT NONE
18    
# Line 26  C     msgBuf      - Informational/error Line 32  C     msgBuf      - Informational/error
32  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
33        IF (useKPP) CALL KPP_CHECK( myThid )        IF (useKPP) CALL KPP_CHECK( myThid )
34  #else  #else
35        IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP')        IF (useKPP) CALL PACKAGES_CHECK_ERROR('KPP', myThid)
36  #endif  #endif
37    
38  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
39        IF (useGMRedi) CALL GMREDI_CHECK( myThid )        IF (useGMRedi) CALL GMREDI_CHECK( myThid )
40  #else  #else
41        IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI')        IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
42  #endif  #endif
43    
44        return  #ifdef ALLOW_OBCS
45        end        IF (useOBCS) CALL OBCS_CHECK( myThid )
46    #else
47          IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
48    #endif
49    
50    #ifndef ALLOW_AIM
51          IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
52    #endif
53    
54          RETURN
55          END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22