/[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.1 by jmc, Mon Dec 15 02:44:48 2003 UTC revision 1.6 by jmc, Tue Apr 28 23:27:24 2009 UTC
# Line 17  C     *================================= Line 17  C     *=================================
17  C     |   this version is specific to 1 component (atmos)  C     |   this version is specific to 1 component (atmos)
18  C     *==========================================================*  C     *==========================================================*
19  C     \ev  C     \ev
20    
21  C     !USES:  C     !USES:
22        IMPLICIT NONE        IMPLICIT NONE
23    
# Line 28  C     == Global variables === Line 28  C     == Global variables ===
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "PARAMS.h"  #include "PARAMS.h"
30  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
31    #include "ATMIDS.h"
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 -  Number of this instance
36        INTEGER myThid        INTEGER myThid
37  CEOP  CEOP
# Line 40  CEOP Line 41  CEOP
41  C Functions  C Functions
42        INTEGER ILNBLNK        INTEGER ILNBLNK
43    
44  C     == Local Variables ==  C     == Local Variables ==
45  C     msgBuf     :: Informational/error meesage buffer  C     msgBuf     :: Informational/error meesage buffer
46  C     iUnit      :: Work variable for IO unit number  C     iUnit      :: Work variable for IO unit number
47  C     k          :: loop counter  C     k          :: loop counter
# Line 51  C     iL         :: Work variable for le Line 52  C     iL         :: Work variable for le
52    
53  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
54    
55  C--   Coupling parameters:  C--   Coupling parameters:
56  C     useImportSST   :: True => use the Imported SST from couler  C     cpl_earlyExpImpCall :: call coupler early in the time stepping call sequence
57  C     cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s)  C     cpl_oldPickup  :: restart from an old pickup (= until checkpoint 59h)
58    C     useImportMxlD  :: True => use Imported Mix.Layer Detph from coupler
59    C     useImportSST   :: True => use the Imported SST from coupler
60    C     useImportSSS   :: True => use the Imported SSS from coupler
61    C     useImportVsq   :: True => use the Imported Surf. velocity^2
62    C     useImportFlxCO2 :: True => use the Imported air-sea CO2 fluxes from coupler
63    C     cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s)
64        NAMELIST /CPL_ATM_PARAM/        NAMELIST /CPL_ATM_PARAM/
65       &    useImportSST,       &    cpl_earlyExpImpCall,
66         &    cpl_oldPickup,
67         &    useImportMxlD, useImportSST, useImportSSS,
68         &    useImportVsq, useImportFlxCO2,
69       &    cpl_atmSendFrq       &    cpl_atmSendFrq
70    
71  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
72    
73  C-    Set default value:  C-    Set default value:
74        useImportSST = .TRUE.        cpl_earlyExpImpCall = .TRUE.
75        cpl_atmSendFrq  = deltaTClock        cpl_oldPickup = .FALSE.
76                useImportMxlD = .TRUE.
77          useImportSST  = .TRUE.
78          useImportSSS  = .TRUE.
79          useImportVsq  = .TRUE.
80          IF ( atmCpl_exchange_DIC ) THEN
81            useImportFlxCO2 = .TRUE.
82          ELSE
83            useImportFlxCO2 = .FALSE.
84          ENDIF
85          cpl_atmSendFrq= deltaTClock
86    
87        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
88          
89        WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl'        WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl'
90        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
91    
# Line 77  C--   Read parameters from open data fil Line 97  C--   Read parameters from open data fil
97  C-    Parameters for coupling interface:  C-    Parameters for coupling interface:
98        READ(UNIT=iUnit,NML=CPL_ATM_PARAM)        READ(UNIT=iUnit,NML=CPL_ATM_PARAM)
99    
100        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
101       &   ' CPL_READPARMS: finished reading data.cpl'       &   ' CPL_READPARMS: finished reading data.cpl'
102        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
103    
104  C--   Close the open data file  C--   Close the open data file
105        CLOSE(iUnit)        CLOSE(iUnit)
106    
107  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
108  C--   Check parameters and model configuration  C--   Check parameters and model configuration
109          IF ( useImportFlxCO2 .AND. .NOT.atmCpl_exchange_DIC ) THEN
110            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportFlxCO2',
111         &    ' requires atmCpl_exchange_DIC TRUE'
112            CALL PRINT_ERROR( msgBuf, myThid)
113            STOP 'ABNORMAL END: S/R CPL_READPARMS'
114          ENDIF
115    
116  C-    derive other parameters:  C-    derive other parameters:
117        cplSendFrq_iter = NINT( cpl_atmSendFrq / deltaTClock )        cplSendFrq_iter = NINT( cpl_atmSendFrq / deltaTClock )
# Line 105  C--   Print out parameter values : Line 131  C--   Print out parameter values :
131        CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)
132    
133  C- namelist CPL_ATM_PARAM:  C- namelist CPL_ATM_PARAM:
134           CALL WRITE_0D_L( cpl_earlyExpImpCall, INDEX_NONE,
135         &                 'cpl_earlyExpImpCall=',
136         &   ' /* call coupler early in the time-stepping */')
137           CALL WRITE_0D_L( cpl_oldPickup , INDEX_NONE,
138         &                 'cpl_oldPickup =',
139         &   ' /* restart from old pickup on/off flag */')
140           CALL WRITE_0D_L( useImportMxlD , INDEX_NONE,
141         &                 'useImportMxlD =',
142         &   ' /* use Imported MxL. Depth from Coupler flag */')
143         CALL WRITE_0D_L( useImportSST , INDEX_NONE,         CALL WRITE_0D_L( useImportSST , INDEX_NONE,
144       &                 'useImportSST =',       &                 'useImportSST =',
145       &   ' /* use Imported SST from Coupler on/off flag */')             &   ' /* use Imported SST from Coupler on/off flag */')
146         CALL WRITE_0D_R8( cpl_atmSendFrq, INDEX_NONE, 'cpl_atmSendFrq =',         CALL WRITE_0D_L( useImportSSS , INDEX_NONE,
147         &                 'useImportSSS =',
148         &   ' /* use Imported SSS from Coupler on/off flag */')
149           CALL WRITE_0D_L( useImportVsq , INDEX_NONE,
150         &                 'useImportVsq =',
151         &   ' /* use Imported surf.Vel^2 from Coupler flag */')
152           CALL WRITE_0D_L( useImportFlxCO2 , INDEX_NONE,
153         &                 'useImportFlxCO2 =',
154         &   ' /* use Imported air-sea CO2 flux from Coupler flag */')
155           CALL WRITE_0D_RL( cpl_atmSendFrq, INDEX_NONE, 'cpl_atmSendFrq =',
156       &   ' /* Frequency^o-1 for sending data to Coupler (s) */')       &   ' /* Frequency^o-1 for sending data to Coupler (s) */')
157  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)
158         CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =',         CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =',
159       &'   /* send data to coupler every "cplSendFrq" iter */')       &'   /* send data to coupler every "cplSendFrq" iter */')
160    
   
161  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
162    
163        _END_MASTER(myThid)        _END_MASTER(myThid)
164    
165  C--   Everyone else must wait for the parameters to be loaded  C--   Everyone else must wait for the parameters to be loaded
166        _BARRIER        _BARRIER
167    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22