/[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.2 by jmc, Fri May 21 20:00:48 2004 UTC
# Line 52  C     iL         :: Work variable for le Line 52  C     iL         :: Work variable for le
52  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
53    
54  C--   Coupling parameters:  C--   Coupling parameters:
55  C     useImportSST   :: True => use the Imported SST from couler  C     cpl_earlyExpImpCall :: call coupler early in the time stepping call sequence
56    C     cpl_oldPickup  :: restart from an old pickup (= until checkpoint 52m_post)
57    C     useImportMxlD  :: True => use Imported Mix.Layer Detph from coupler
58    C     useImportSST   :: True => use the Imported SST from coupler
59    C     useImportSSS   :: True => use the Imported SSS from coupler
60    C     useImportVsq   :: True => use the Imported Surf. velocity^2
61  C     cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s)  C     cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s)
62        NAMELIST /CPL_ATM_PARAM/        NAMELIST /CPL_ATM_PARAM/
63       &    useImportSST,       &    cpl_earlyExpImpCall,
64         &    cpl_oldPickup,
65         &    useImportMxlD, useImportSST, useImportSSS, useImportVsq,
66       &    cpl_atmSendFrq       &    cpl_atmSendFrq
67    
68  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
69    
70  C-    Set default value:  C-    Set default value:
71        useImportSST = .TRUE.        cpl_earlyExpImpCall = .FALSE.
72        cpl_atmSendFrq  = deltaTClock        cpl_oldPickup = .FALSE.
73          useImportMxlD = .TRUE.
74          useImportSST  = .TRUE.
75          useImportSSS  = .TRUE.
76          useImportVsq  = .TRUE.
77          cpl_atmSendFrq= deltaTClock
78                
79        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
80                
# Line 105  C--   Print out parameter values : Line 117  C--   Print out parameter values :
117        CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)
118    
119  C- namelist CPL_ATM_PARAM:  C- namelist CPL_ATM_PARAM:
120           CALL WRITE_0D_L( cpl_earlyExpImpCall, INDEX_NONE,
121         &                 'cpl_earlyExpImpCall=',
122         &   ' /* call coupler early in the time-stepping */')
123           CALL WRITE_0D_L( cpl_oldPickup , INDEX_NONE,
124         &                 'cpl_oldPickup =',
125         &   ' /* restart from old pickup on/off flag */')      
126           CALL WRITE_0D_L( useImportMxlD , INDEX_NONE,
127         &                 'useImportMxlD =',
128         &   ' /* use Imported MxL. Depth from Coupler flag */')      
129         CALL WRITE_0D_L( useImportSST , INDEX_NONE,         CALL WRITE_0D_L( useImportSST , INDEX_NONE,
130       &                 'useImportSST =',       &                 'useImportSST =',
131       &   ' /* use Imported SST from Coupler on/off flag */')             &   ' /* use Imported SST from Coupler on/off flag */')      
132           CALL WRITE_0D_L( useImportSSS , INDEX_NONE,
133         &                 'useImportSSS =',
134         &   ' /* use Imported SSS from Coupler on/off flag */')      
135           CALL WRITE_0D_L( useImportVsq , INDEX_NONE,
136         &                 'useImportVsq =',
137         &   ' /* use Imported surf.Vel^2 from Coupler flag */')      
138         CALL WRITE_0D_R8( cpl_atmSendFrq, INDEX_NONE, 'cpl_atmSendFrq =',         CALL WRITE_0D_R8( cpl_atmSendFrq, INDEX_NONE, 'cpl_atmSendFrq =',
139       &   ' /* Frequency^o-1 for sending data to Coupler (s) */')       &   ' /* Frequency^o-1 for sending data to Coupler (s) */')
140  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)  C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)
141         CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =',         CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =',
142       &'   /* send data to coupler every "cplSendFrq" iter */')       &'   /* send data to coupler every "cplSendFrq" iter */')
143    
   
144  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
145    
146        _END_MASTER(myThid)        _END_MASTER(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22