26 |
C msgBuf - Informational/error meesage buffer |
C msgBuf - Informational/error meesage buffer |
27 |
C errIO - IO error flag |
C errIO - IO error flag |
28 |
C iUnit - Work variable for IO unit number |
C iUnit - Work variable for IO unit number |
29 |
|
C k - Loop counter |
30 |
|
|
31 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
32 |
INTEGER errIO, iUnit |
INTEGER errIO, iUnit, k |
33 |
|
|
34 |
C-- KPP vertical mixing parameters |
C-- KPP vertical mixing parameters |
35 |
NAMELIST /KPP_PARM01/ |
NAMELIST /KPP_PARM01/ |
61 |
|
|
62 |
C-- set default KPP vertical mixing parameters |
C-- set default KPP vertical mixing parameters |
63 |
kpp_freq = deltaTClock |
kpp_freq = deltaTClock |
64 |
kpp_dumpFreq = 0. |
kpp_dumpFreq = dumpFreq |
65 |
kpp_taveFreq = 0. |
kpp_taveFreq = taveFreq |
66 |
KPPmixingMaps = .FALSE. |
KPPmixingMaps = .FALSE. |
67 |
KPPwriteState = .FALSE. |
KPPwriteState = .FALSE. |
68 |
minKPPhbl = drF(1)*0.5 |
minKPPhbl = drF(1)*0.5 |