152 |
CALL WRITE_0D_L( useImportFlxCO2 , INDEX_NONE, |
CALL WRITE_0D_L( useImportFlxCO2 , INDEX_NONE, |
153 |
& 'useImportFlxCO2 =', |
& 'useImportFlxCO2 =', |
154 |
& ' /* use Imported air-sea CO2 flux from Coupler flag */') |
& ' /* use Imported air-sea CO2 flux from Coupler flag */') |
155 |
CALL WRITE_0D_R8( cpl_atmSendFrq, INDEX_NONE, 'cpl_atmSendFrq =', |
CALL WRITE_0D_RL( cpl_atmSendFrq, INDEX_NONE, 'cpl_atmSendFrq =', |
156 |
& ' /* Frequency^o-1 for sending data to Coupler (s) */') |
& ' /* Frequency^o-1 for sending data to Coupler (s) */') |
157 |
C cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s) |
C cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s) |
158 |
CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =', |
CALL WRITE_0D_I( cplSendFrq_iter, INDEX_NONE,'cplSendFrq_iter =', |