/[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.9 by jmc, Tue Sep 24 23:13:54 2013 UTC revision 1.10 by jmc, Mon Dec 2 21:46:57 2013 UTC
# Line 50  C     cpl_earlyExpImpCall :: retired; al Line 50  C     cpl_earlyExpImpCall :: retired; al
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, tmpLoc
54        LOGICAL cpl_earlyExpImpCall        LOGICAL cpl_earlyExpImpCall
55    
56  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 131  C--   Check parameters and model configu Line 131  C--   Check parameters and model configu
131          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
132          STOP 'ABNORMAL END: S/R CPL_READPARMS'          STOP 'ABNORMAL END: S/R CPL_READPARMS'
133        ENDIF        ENDIF
134          tmpLoc = NINT( cpl_atmSendFrq / deltaTClock )
135          tmpLoc = ABS( tmpLoc - ( cpl_atmSendFrq / deltaTClock ) )
136          IF ( tmpLoc.GT.1. _d -12 .OR. cpl_atmSendFrq.EQ.zeroRL ) THEN
137            WRITE(msgBuf,'(2A)') 'CPL_READPARMS: cpl_atmSendFrq',
138         &    ' is not a multiple of deltaT'
139            CALL PRINT_ERROR( msgBuf, myThid )
140            STOP 'ABNORMAL END: S/R CPL_READPARMS'
141          ENDIF
142    
143  C-    derive other parameters:  C-    Derive other parameters:
144        cplSendFrq_iter = NINT( cpl_atmSendFrq / deltaTClock )        cplSendFrq_iter = NINT( cpl_atmSendFrq / deltaTClock )
145        IF ( cplSendFrq_iter .LT. 1) cplSendFrq_iter = 1        IF ( cplSendFrq_iter .LT. 1) cplSendFrq_iter = 1
146    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22