/[MITgcm]/MITgcm/pkg/ocn_compon_interf/cpl_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ocn_compon_interf/cpl_readparms.F

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

revision 1.11 by jmc, Tue Apr 28 23:27:24 2009 UTC revision 1.12 by jmc, Fri Dec 25 19:45:13 2009 UTC
# Line 36  C     == Global variables === Line 36  C     == Global variables ===
36    
37  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
38  C     == Routine Arguments ==  C     == Routine Arguments ==
39  C     myThid -  Number of this instance  C     myThid     :: my Thread Id. number
40        INTEGER myThid        INTEGER myThid
41  CEOP  CEOP
42    
43  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
44    
45  C Functions  C     !FUNCTIONS:
46        INTEGER ILNBLNK  c     INTEGER ILNBLNK
47    
48    C     !LOCAL VARIABLES:
49  C     == Local Variables ==  C     == Local Variables ==
50  C     msgBuf     :: Informational/error meesage buffer  C     msgBuf     :: Informational/error message buffer
51  C     iUnit      :: Work variable for IO unit number  C     iUnit      :: Work variable for IO unit number
52  C     k          :: loop counter  C     k          :: loop counter
53  C     iL         :: Work variable for length of file-name  C     iL         :: Work variable for length of file-name
54        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
55        INTEGER iUnit, k, iL        INTEGER iUnit
56    c     INTEGER k, iL
57    
58  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
59    
# Line 75  C     cpl_taveFreq  :: Frequency^-1 for Line 77  C     cpl_taveFreq  :: Frequency^-1 for
77    
78  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
79    
80          _BEGIN_MASTER(myThid)
81    
82    C--   Open the data file
83          WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl'
84          CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
85    
86          CALL OPEN_COPY_DATA_FILE( 'data.cpl', 'CPL_READPARMS',
87         O                          iUnit, myThid )
88    
89  C-    Set default value:  C-    Set default value:
90        cpl_earlyExpImpCall = .TRUE.        cpl_earlyExpImpCall = .TRUE.
91        useImportHFlx = .TRUE.        useImportHFlx = .TRUE.
# Line 100  C-    Set default value: Line 111  C-    Set default value:
111        cpl_timeave_mnc  = .FALSE.        cpl_timeave_mnc  = .FALSE.
112  #endif  #endif
113    
       _BEGIN_MASTER(myThid)  
   
       WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl'  
       CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)  
   
       CALL OPEN_COPY_DATA_FILE( 'data.cpl', 'CPL_READPARMS',  
      O                          iUnit, myThid )  
   
114  C--   Read parameters from open data file:  C--   Read parameters from open data file:
115    
116  C-    Parameters for coupling interface:  C-    Parameters for coupling interface:
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22