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

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

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

revision 1.6 by jmc, Tue Apr 28 23:27:24 2009 UTC revision 1.7 by jmc, Fri Dec 25 19:44:35 2009 UTC
# Line 32  C     == Global variables === Line 32  C     == Global variables ===
32    
33  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
34  C     == Routine Arguments ==  C     == Routine Arguments ==
35  C     myThid -  Number of this instance  C     myThid     :: my Thread Id. number
36        INTEGER myThid        INTEGER myThid
37  CEOP  CEOP
38    
39  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
40    
41  C Functions  C     !FUNCTIONS:
42        INTEGER ILNBLNK  c     INTEGER ILNBLNK
43    
44    C     !LOCAL VARIABLES:
45  C     == Local Variables ==  C     == Local Variables ==
46  C     msgBuf     :: Informational/error meesage buffer  C     msgBuf     :: Informational/error message buffer
47  C     iUnit      :: Work variable for IO unit number  C     iUnit      :: Work variable for IO unit number
48  C     k          :: loop counter  C     k          :: loop counter
49  C     iL         :: Work variable for length of file-name  C     iL         :: Work variable for length of file-name
50        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
51        INTEGER iUnit, k, iL        INTEGER iUnit
52    c     INTEGER k, iL
53        _RL  cpl_atmSendFrq        _RL  cpl_atmSendFrq
54    
55  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 70  C     cpl_atmSendFrq :: Frequency^-1 for Line 72  C     cpl_atmSendFrq :: Frequency^-1 for
72    
73  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
74    
75          _BEGIN_MASTER(myThid)
76    
77    C--   Open the data file
78          WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl'
79          CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
80    
81          CALL OPEN_COPY_DATA_FILE( 'data.cpl', 'CPL_READPARMS',
82         O                          iUnit, myThid )
83    
84  C-    Set default value:  C-    Set default value:
85        cpl_earlyExpImpCall = .TRUE.        cpl_earlyExpImpCall = .TRUE.
86        cpl_oldPickup = .FALSE.        cpl_oldPickup = .FALSE.
# Line 84  C-    Set default value: Line 95  C-    Set default value:
95        ENDIF        ENDIF
96        cpl_atmSendFrq= deltaTClock        cpl_atmSendFrq= deltaTClock
97    
       _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 )  
   
98  C--   Read parameters from open data file:  C--   Read parameters from open data file:
99    
100  C-    Parameters for coupling interface:  C-    Parameters for coupling interface:
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22