/[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.7 by jmc, Fri Dec 25 19:44:35 2009 UTC revision 1.8 by jmc, Thu Jul 18 20:03:10 2013 UTC
# Line 22  C     !USES: Line 22  C     !USES:
22        IMPLICIT NONE        IMPLICIT NONE
23    
24  C     == Global variables ===  C     == Global variables ===
   
25  #include "SIZE.h"  #include "SIZE.h"
   
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
28  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
# Line 47  C     msgBuf     :: Informational/error Line 45  C     msgBuf     :: Informational/error
45  C     iUnit      :: Work variable for IO unit number  C     iUnit      :: Work variable for IO unit number
46  C     k          :: loop counter  C     k          :: loop counter
47  C     iL         :: Work variable for length of file-name  C     iL         :: Work variable for length of file-name
48    C     cpl_earlyExpImpCall :: retired; always call coupler early in call sequence
49    
50        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
51        INTEGER iUnit        INTEGER iUnit
52  c     INTEGER k, iL  c     INTEGER k, iL
53        _RL  cpl_atmSendFrq        _RL  cpl_atmSendFrq
54          LOGICAL cpl_earlyExpImpCall
55    
56  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
57    
# Line 108  C--   Close the open data file Line 109  C--   Close the open data file
109        CLOSE(iUnit)        CLOSE(iUnit)
110    
111  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
112    C--   Check for retired parameters:
113          IF ( .NOT.cpl_earlyExpImpCall ) THEN
114            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
115         &   'Parameter "cpl_earlyExpImpCall" has been retired;'
116            CALL PRINT_ERROR( msgBuf, myThid )
117            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: ',
118         &   '=> always call coupler early in sequence of calls'
119            CALL PRINT_ERROR( msgBuf, myThid )
120            STOP 'ABNORMAL END: S/R CPL_READPARMS'
121          ENDIF
122    
123  C--   Check parameters and model configuration  C--   Check parameters and model configuration
124        IF ( useImportFlxCO2 .AND. .NOT.atmCpl_exchange_DIC ) THEN        IF ( useImportFlxCO2 .AND. .NOT.atmCpl_exchange_DIC ) THEN
125          WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportFlxCO2',          WRITE(msgBuf,'(2A)') 'CPL_READPARMS: useImportFlxCO2',
126       &    ' requires atmCpl_exchange_DIC TRUE'       &    ' requires atmCpl_exchange_DIC TRUE'
127          CALL PRINT_ERROR( msgBuf, myThid)          CALL PRINT_ERROR( msgBuf, myThid )
128          STOP 'ABNORMAL END: S/R CPL_READPARMS'          STOP 'ABNORMAL END: S/R CPL_READPARMS'
129        ENDIF        ENDIF
130    
# Line 134  C--   Print out parameter values : Line 146  C--   Print out parameter values :
146        CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)
147    
148  C- namelist CPL_ATM_PARAM:  C- namelist CPL_ATM_PARAM:
        CALL WRITE_0D_L( cpl_earlyExpImpCall, INDEX_NONE,  
      &                 'cpl_earlyExpImpCall=',  
      &   ' /* call coupler early in the time-stepping */')  
149         CALL WRITE_0D_L( cpl_oldPickup , INDEX_NONE,         CALL WRITE_0D_L( cpl_oldPickup , INDEX_NONE,
150       &                 'cpl_oldPickup =',       &                 'cpl_oldPickup =',
151       &   ' /* restart from old pickup on/off flag */')       &   ' /* restart from old pickup on/off flag */')
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22