/[MITgcm]/MITgcm/pkg/mypackage/mypackage_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/mypackage/mypackage_readparms.F

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

revision 1.2 by edhill, Mon Aug 7 21:13:52 2006 UTC revision 1.3 by jmc, Sun Jan 27 20:52:11 2008 UTC
# Line 18  C     !USES: Line 18  C     !USES:
18  #include "SIZE.h"  #include "SIZE.h"
19  #include "EEPARAMS.h"  #include "EEPARAMS.h"
20  #include "PARAMS.h"  #include "PARAMS.h"
 #include "GRID.h"  
21  #include "MYPACKAGE.h"  #include "MYPACKAGE.h"
22    
23  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# Line 28  CEOP Line 27  CEOP
27  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
28    
29        NAMELIST /MYPACKAGE_PARM01/        NAMELIST /MYPACKAGE_PARM01/
30       &       MYPA_MNC,       &       myPa_MNC,
31       &       MYPA_index1, MYPA_index2,       &       myPa_StaV_Cgrid, myPa_Tend_Cgrid,
32       &       MYPA_param1, MYPA_param2,       &       myPa_applyTendT, myPa_applyTendS,
33       &       MYPA_string1, MYPA_string2,       &       myPa_applyTendU, myPa_applyTendV,
34       &       mypaStatScal1File, mypaStatScal2File,       &       myPa_doSwitch1,  myPa_doSwitch2,
35       &       mypaStatUvelFile, mypaStatVvelFile,       &       myPa_index1,     myPa_index2,
36       &       mypaSurf1File, mypaSurf2File       &       myPa_param1,     myPa_param2,
37         &       myPa_string1,    myPa_string2,
38         &       myPa_Scal1File,  myPa_Scal2File,
39         &       myPa_VelUFile,   myPa_VelVFile,
40         &       myPa_Surf1File,  myPa_Surf2File
41    
42  C     === Local variables ===  C     === Local variables ===
43  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
# Line 42  C     iUnit       - Work variable for IO Line 45  C     iUnit       - Work variable for IO
45        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
46        INTEGER iUnit        INTEGER iUnit
47    
 C--   MYPACKAGE_READPARMS has been called so we know that  
 C     the package is active.  
       MYPAisOn = .TRUE.  
   
48        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
49    
50  C--   Default values for MYPACKAGE  C--   Default values for MYPACKAGE
51        MYPA_MNC            = useMNC        myPa_MNC         = useMNC
52        MYPA_doSwitch1      = .FALSE.        myPa_StaV_Cgrid  = .TRUE.
53        MYPA_doSwitch2      = .FALSE.        myPa_Tend_Cgrid  = .TRUE.
54        MYPA_index1         = 0        myPa_applyTendT  = .FALSE.
55        MYPA_index2         = 0        myPa_applyTendS  = .FALSE.
56        MYPA_param1         = 0. _d 0        myPa_applyTendU  = .FALSE.
57        MYPA_param2         = 0. _d 0        myPa_applyTendV  = .FALSE.
58        MYPA_string1        = ' '  C-    additional parameters:
59        MYPA_string2        = ' '        myPa_doSwitch1   = .FALSE.
60        mypaStatScal1File   = ' '        myPa_doSwitch2   = .FALSE.
61        mypaStatScal2File   = ' '        myPa_index1      = 0
62        mypaStatUvelFile    = ' '        myPa_index2      = 0
63        mypaStatVvelFile    = ' '        myPa_param1      = 0. _d 0
64        mypaSurf1File   = ' '        myPa_param2      = 0. _d 0
65        mypaSurf2File   = ' '        myPa_string1     = ' '
66                myPa_string2     = ' '
67    C-    file names for initial conditions:
68          myPa_Scal1File   = ' '
69          myPa_Scal2File   = ' '
70          myPa_VelUFile    = ' '
71          myPa_VelVFile    = ' '
72          myPa_Surf1File   = ' '
73          myPa_Surf2File   = ' '
74    
75        WRITE(msgBuf,'(A)') 'MYPACKAGE_READPARMS: opening data.mypackage'        WRITE(msgBuf,'(A)') 'MYPACKAGE_READPARMS: opening data.mypackage'
76        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
77       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
# Line 75  C--   Default values for MYPACKAGE Line 82  C--   Default values for MYPACKAGE
82    
83  C     Read parameters from open data file  C     Read parameters from open data file
84        READ(UNIT=iUnit,NML=MYPACKAGE_PARM01)        READ(UNIT=iUnit,NML=MYPACKAGE_PARM01)
85        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
86       &    'MYPACKAGE_READPARMS: finished reading data.mypackage'       &    'MYPACKAGE_READPARMS: finished reading data.mypackage'
87        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
88       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
# Line 83  C     Close the open data file Line 90  C     Close the open data file
90        CLOSE(iUnit)        CLOSE(iUnit)
91    
92  C     Make sure that we locally honor the global MNC on/off flag  C     Make sure that we locally honor the global MNC on/off flag
93        MYPA_MNC = MYPA_MNC .AND. useMNC        myPa_MNC = myPa_MNC .AND. useMNC
94  #ifndef ALLOW_MNC  #ifndef ALLOW_MNC
95  C     Fix to avoid running without getting any output:  C     Fix to avoid running without getting any output:
96        MYPA_MNC = .FALSE.        myPa_MNC = .FALSE.
97  #endif  #endif
98        MYPA_MDSIO = (.NOT. MYPA_MNC) .OR. outputTypesInclusive        myPa_MDSIO = (.NOT. myPa_MNC) .OR. outputTypesInclusive
99    
100        _END_MASTER(myThid)        _END_MASTER(myThid)
101    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22