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

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

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

revision 1.6 by adcroft, Thu Sep 13 17:43:55 2001 UTC revision 1.7 by cnh, Wed Sep 26 18:09:16 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: PACKAGES_BOOT
8    C     !INTERFACE:
9        SUBROUTINE PACKAGES_BOOT( myThid )        SUBROUTINE PACKAGES_BOOT( myThid )
 C     /==========================================================\  
 C     | SUBROUTINE PACKAGES_BOOT                                 |  
 C     | o Routine to parse runtime package selection file        |  
 C     |==========================================================|  
 C     | Routine reads a flat file which contains a single flag   |  
 C     | for each known "package". Flag can enables runtime       |  
 C     | activation or deactivation of a package. The data is read|  
 C     | from a file called data.pkg.                             |  
 C     | Note - If a runtime activation flag is set on but the    |  
 C     |        package code was not included in the build then   |  
 C     |        the default behavior is to stop with an error.    |  
 C     \==========================================================/  
       IMPLICIT NONE  
10    
11    C     !DESCRIPTION: \bv
12    C     *==========================================================*
13    C     | SUBROUTINE PACKAGES_BOOT                                  
14    C     | o Routine to parse runtime package selection file        
15    C     *==========================================================*
16    C     | Routine reads a flat file which contains a single flag    
17    C     | for each known "package". Flag can enables runtime        
18    C     | activation or deactivation of a package. The data is read
19    C     | from a file called data.pkg.                              
20    C     | Note - If a runtime activation flag is set on but the    
21    C     |        package code was not included in the build then    
22    C     |        the default behavior is to stop with an error.    
23    C     *==========================================================*
24    C     \ev
25    
26    C     !USES:
27          IMPLICIT NONE
28  C     === Global variables ===  C     === Global variables ===
29  #include "SIZE.h"  #include "SIZE.h"
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
31  #include "PARAMS.h"  #include "PARAMS.h"
32    
33    C     !INPUT/OUTPUT PARAMETERS:
34  C     === Routine arguments ===  C     === Routine arguments ===
35  C     myThid -  Number of this instances  C     myThid -  Number of this instances
36        INTEGER myThid        INTEGER myThid
37    
38  C--   data.pkg namelists  C     !LOCAL VARIABLES:
39    C     === Local variables ===
40    C     msgBuf      - Informational/error meesage buffer
41    C     iUnit       - Work variable for IO unit number
42          CHARACTER*(MAX_LEN_MBUF) msgBuf
43          INTEGER iUnit
44    
45    C     data.pkg namelists
46        NAMELIST /PACKAGES/        NAMELIST /PACKAGES/
47       &          useKPP,       &          useKPP,
48       &          useGMRedi,       &          useGMRedi,
# Line 37  C--   data.pkg namelists Line 52  C--   data.pkg namelists
52       &          useECCO,       &          useECCO,
53       &          useSHAP_FILT,       &          useSHAP_FILT,
54       &          useFLT       &          useFLT
55    CEOP
 C     === Local variables ===  
 C     msgBuf      - Informational/error meesage buffer  
 C     iUnit       - Work variable for IO unit number  
       CHARACTER*(MAX_LEN_MBUF) msgBuf  
       INTEGER iUnit  
56    
57        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
58    
59        WRITE(msgBuf,'(A)') ' PACKAGE_INIT: opening data.pkg'        WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: opening data.pkg'
60        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
61       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
62            
# Line 68  C--   Read parameters from open data fil Line 78  C--   Read parameters from open data fil
78        READ(UNIT=iUnit,NML=PACKAGES)        READ(UNIT=iUnit,NML=PACKAGES)
79    
80    
81        WRITE(msgBuf,'(A)') ' PACKAGE_INIT: finished reading data.pkg'        WRITE(msgBuf,'(A)') ' PACKAGES_BOOT: finished reading data.pkg'
82        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
83       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
84    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22