/[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.8 by jmc, Thu Jul 18 20:03:10 2013 UTC revision 1.9 by jmc, Tue Sep 24 23:13:54 2013 UTC
# Line 69  C     cpl_atmSendFrq :: Frequency^-1 for Line 69  C     cpl_atmSendFrq :: Frequency^-1 for
69       &    cpl_oldPickup,       &    cpl_oldPickup,
70       &    useImportMxlD, useImportSST, useImportSSS,       &    useImportMxlD, useImportSST, useImportSSS,
71       &    useImportVsq, useImportFlxCO2,       &    useImportVsq, useImportFlxCO2,
72       &    cpl_atmSendFrq       &    cpl_atmSendFrq,
73         &    maxNumberPrint
74    
75  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
76    
# Line 95  C-    Set default value: Line 96  C-    Set default value:
96          useImportFlxCO2 = .FALSE.          useImportFlxCO2 = .FALSE.
97        ENDIF        ENDIF
98        cpl_atmSendFrq= deltaTClock        cpl_atmSendFrq= deltaTClock
99          maxNumberPrint= 100
100          countPrtExp   = 0
101          countPrtImp   = 0
102    
103  C--   Read parameters from open data file:  C--   Read parameters from open data file:
104    
# Line 168  C- namelist CPL_ATM_PARAM: Line 172  C- namelist CPL_ATM_PARAM:
172       &   ' /* Frequency^o-1 for sending data to Coupler (s) */')       &   ' /* Frequency^o-1 for sending data to Coupler (s) */')
173  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)
174         CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =',         CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =',
175       &'   /* send data to coupler every "cplSendFrq" iter */')       &  ' /* send data to coupler every "cplSendFrq" iter */')
176           CALL WRITE_0D_I( maxNumberPrint, INDEX_NONE, 'maxNumberPrint =',
177         &  ' /* max number of printed Exp/Imp messages */')
178    
179  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
180    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22