72 |
atm_cplExch2W_sIce = parBuf(4).GE.2 |
atm_cplExch2W_sIce = parBuf(4).GE.2 |
73 |
atm_cplExch_SaltPl = parBuf(5).GE.2 |
atm_cplExch_SaltPl = parBuf(5).GE.2 |
74 |
atm_cplExch_DIC = parBuf(6).GE.2 |
atm_cplExch_DIC = parBuf(6).GE.2 |
75 |
|
C- save coupler parameter: |
76 |
|
cpl_exchange_RunOff = parBuf(2) |
77 |
|
cpl_exchange1W_sIce = parBuf(3) |
78 |
|
cpl_exchange2W_sIce = parBuf(4) |
79 |
|
cpl_exchange_SaltPl = parBuf(5) |
80 |
|
cpl_exchange_DIC = parBuf(6) |
81 |
ELSE |
ELSE |
82 |
C- If not using an up-to-date ATMIDS.h with the wrong atmParSize |
C- If not using an up-to-date ATMIDS.h with the wrong atmParSize |
83 |
cplErrorCount = cplErrorCount + 1 |
cplErrorCount = cplErrorCount + 1 |