/[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.11 by jmc, Thu Nov 12 01:06:40 2015 UTC revision 1.12 by jmc, Wed Jan 6 00:45:23 2016 UTC
# Line 26  C     == Global variables === Line 26  C     == Global variables ===
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
 #include "ATMIDS.h"  
29    
30  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
31  C     == Routine Arguments ==  C     == Routine Arguments ==
# Line 56  c     INTEGER k, iL Line 55  c     INTEGER k, iL
55  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
56    
57  C--   Coupling parameters:  C--   Coupling parameters:
 C     cpl_earlyExpImpCall :: call coupler early in the time stepping call sequence  
58  C     cpl_oldPickup  :: restart from an old pickup (= until checkpoint 59h)  C     cpl_oldPickup  :: restart from an old pickup (= until checkpoint 59h)
59  C     useImportMxlD  :: True => use Imported Mix.Layer Detph from coupler  C     useImportMxlD  :: True => use Imported Mix.Layer Detph from coupler
60  C     useImportSST   :: True => use the Imported SST from coupler  C     useImportSST   :: True => use the Imported SST from coupler
61  C     useImportSSS   :: True => use the Imported SSS from coupler  C     useImportSSS   :: True => use the Imported SSS from coupler
62  C     useImportVsq   :: True => use the Imported Surf. velocity^2  C     useImportVsq   :: True => use the Imported Surf. velocity^2
63  C     useImportFlxCO2 :: True => use the Imported air-sea CO2 fluxes from coupler  C     useImportThSIce :: True => use the Imported thSIce state vars from coupler
64    C     useImportFlxCO2 :: True => use the Imported air-sea CO2 flux from coupler
65  C     cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s)  C     cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s)
66        NAMELIST /CPL_ATM_PARAM/        NAMELIST /CPL_ATM_PARAM/
67       &    cpl_earlyExpImpCall,       &    cpl_earlyExpImpCall,
68       &    cpl_oldPickup,       &    cpl_oldPickup,
69       &    useImportMxlD, useImportSST, useImportSSS,       &    useImportMxlD, useImportSST, useImportSSS,
70       &    useImportVsq, useImportFlxCO2,       &    useImportVsq, useImportThSIce, useImportFlxCO2,
71       &    cpl_atmSendFrq,       &    cpl_atmSendFrq,
72       &    maxNumberPrint       &    maxNumberPrint
73    
# Line 90  C-    Set default value: Line 89  C-    Set default value:
89        useImportSST  = .TRUE.        useImportSST  = .TRUE.
90        useImportSSS  = .TRUE.        useImportSSS  = .TRUE.
91        useImportVsq  = .TRUE.        useImportVsq  = .TRUE.
92        useImportFlxCO2 = atm_cplExch_DIC        useImportThSIce = cpl_exchange2W_sIce.EQ.3
93          useImportFlxCO2 =  cpl_exchange_DIC .EQ. 3
94        cpl_atmSendFrq= deltaTClock        cpl_atmSendFrq= deltaTClock
95        maxNumberPrint= 100        maxNumberPrint= 100
96        countPrtExp   = 0        countPrtExp   = 0
# Line 121  C--   Check for retired parameters: Line 121  C--   Check for retired parameters:
121        ENDIF        ENDIF
122    
123  C--   Check parameters and model configuration  C--   Check parameters and model configuration
124        IF ( useImportFlxCO2 .AND. .NOT.atm_cplExch_DIC ) THEN  
125    #ifndef ALLOW_LAND
126          IF ( atm_cplExch_RunOff ) THEN
127            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs',
128         &    ' to compile pkg/land to use: atm_cplExch_RunOff=T'
129            CALL PRINT_ERROR( msgBuf, myThid )
130            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
131         &    ' (set from Coupler "data.cpl": cpl_exchange_RunOff > 1)'
132            CALL PRINT_ERROR( msgBuf, myThid )
133            cplErrorCount = cplErrorCount + 1
134          ENDIF
135    #endif /* ndef ALLOW_LAND */
136    #ifndef ALLOW_THSICE
137          IF ( atm_cplExch1W_sIce ) THEN
138            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs',
139         &    ' to compile pkg/thsice to use: atm_cplExch1W_sIce=T'
140            CALL PRINT_ERROR( msgBuf, myThid )
141            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
142         &    ' (set from Coupler "data.cpl": cpl_exchange1W_sIce > 1)'
143            CALL PRINT_ERROR( msgBuf, myThid )
144            cplErrorCount = cplErrorCount + 1
145          ENDIF
146          IF ( atm_cplExch2W_sIce ) THEN
147            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs',
148         &    ' to compile pkg/thsice to use: atm_cplExch2W_sIce=T'
149            CALL PRINT_ERROR( msgBuf, myThid )
150            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
151         &    ' (set from Coupler "data.cpl": cpl_exchange2W_sIce > 1)'
152            CALL PRINT_ERROR( msgBuf, myThid )
153            cplErrorCount = cplErrorCount + 1
154          ENDIF
155          IF ( atm_cplExch_SaltPl ) THEN
156            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs',
157         &    ' to compile pkg/thsice to use: atm_cplExch_SaltPl=T'
158            CALL PRINT_ERROR( msgBuf, myThid )
159            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
160         &    ' (set from Coupler "data.cpl": cpl_exchange_SaltPl > 1)'
161            CALL PRINT_ERROR( msgBuf, myThid )
162            cplErrorCount = cplErrorCount + 1
163          ENDIF
164    #endif /* ndef ALLOW_THSICE */
165    #ifndef ALLOW_AIM
166          IF ( atm_cplExch_DIC ) THEN
167            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: needs',
168         &    ' to compile pkg/aim_v23 to use: atm_cplExch_DIC = T'
169            CALL PRINT_ERROR( msgBuf, myThid )
170            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
171         &    ' (set from Coupler "data.cpl": cpl_exchange_DIC > 1)'
172            CALL PRINT_ERROR( msgBuf, myThid )
173            cplErrorCount = cplErrorCount + 1
174          ENDIF
175    #endif /* ndef ALLOW_AIM */
176    
177          IF ( useImportThSIce .AND. .NOT.atm_cplExch2W_sIce ) THEN
178            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportThSIce',
179         &    ' requires setting'
180            CALL PRINT_ERROR( msgBuf, myThid )
181            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
182         &    ' cpl_exchange2W_sIce > 1 (in Coupler "data.cpl")'
183            CALL PRINT_ERROR( msgBuf, myThid )
184            cplErrorCount = cplErrorCount + 1
185          ELSEIF ( useImportThSIce .AND. cpl_exchange2W_sIce.NE.3 ) THEN
186            WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS: ',
187         &    'useImportThSIce useless without'
188            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
189         &                      SQUEEZE_RIGHT, myThid )
190            WRITE(msgBuf,'(2A)') '** WARNING ** CPL_READPARMS: ',
191         &    ' cpl_exchange2W_sIce = 3 (in Coupler "data.cpl")'
192            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
193         &                      SQUEEZE_RIGHT, myThid )
194          ENDIF
195          IF ( useImportFlxCO2 .AND. cpl_exchange_DIC.NE.3  ) THEN
196          WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportFlxCO2',          WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportFlxCO2',
197       &    ' requires atm_cplExch_DIC TRUE'       &    ' requires setting'
198            CALL PRINT_ERROR( msgBuf, myThid )
199            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
200         &    ' cpl_exchange_DIC = 3 (in Coupler "data.cpl")'
201          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
202          cplErrorCount = cplErrorCount + 1          cplErrorCount = cplErrorCount + 1
203        ENDIF        ENDIF
# Line 192  C-    print namelist parameter value: Line 266  C-    print namelist parameter value:
266         CALL WRITE_0D_L( useImportMxlD , INDEX_NONE,         CALL WRITE_0D_L( useImportMxlD , INDEX_NONE,
267       &                 'useImportMxlD =',       &                 'useImportMxlD =',
268       &   ' /* use Imported MxL. Depth from Coupler flag */')       &   ' /* use Imported MxL. Depth from Coupler flag */')
269         CALL WRITE_0D_L( useImportSST , INDEX_NONE,         CALL WRITE_0D_L( useImportSST  , INDEX_NONE,
270       &                 'useImportSST =',       &                 'useImportSST  =',
271       &   ' /* use Imported SST from Coupler on/off flag */')       &   ' /* use Imported SST from Coupler on/off flag */')
272         CALL WRITE_0D_L( useImportSSS , INDEX_NONE,         CALL WRITE_0D_L( useImportSSS  , INDEX_NONE,
273       &                 'useImportSSS =',       &                 'useImportSSS  =',
274       &   ' /* use Imported SSS from Coupler on/off flag */')       &   ' /* use Imported SSS from Coupler on/off flag */')
275         CALL WRITE_0D_L( useImportVsq , INDEX_NONE,         CALL WRITE_0D_L( useImportVsq  , INDEX_NONE,
276       &                 'useImportVsq =',       &                 'useImportVsq  =',
277       &   ' /* use Imported surf.Vel^2 from Coupler flag */')       &   ' /* use Imported surf.Vel^2 from Coupler flag */')
278         CALL WRITE_0D_L( useImportFlxCO2 , INDEX_NONE,         CALL WRITE_0D_L( useImportThSIce, INDEX_NONE,
279       &                 'useImportFlxCO2 =',       &                 'useImportThSIce=',
280       &   ' /* use Imported air-sea CO2 flux from Coupler flag */')       &   ' /* use Imported thSIce state-var fr Cpl. flag */')
281           CALL WRITE_0D_L( useImportFlxCO2, INDEX_NONE,
282         &                 'useImportFlxCO2=',
283         &   ' /* use Imported air-sea CO2 flux fr Cpl.  flag */')
284         CALL WRITE_0D_RL( cpl_atmSendFrq, INDEX_NONE, 'cpl_atmSendFrq =',         CALL WRITE_0D_RL( cpl_atmSendFrq, INDEX_NONE, 'cpl_atmSendFrq =',
285       &   ' /* Frequency^o-1 for sending data to Coupler (s) */')       &   ' /* Frequency^o-1 for sending data to Coupler (s) */')
286  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22