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 |
|
C k - Loop counter |
|
29 |
|
|
30 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
31 |
INTEGER errIO, iUnit, k |
INTEGER errIO, iUnit |
32 |
|
|
33 |
C-- KPP vertical mixing parameters |
C-- KPP vertical mixing parameters |
34 |
NAMELIST /KPP_PARM01/ |
NAMELIST /KPP_PARM01/ |
60 |
|
|
61 |
C-- set default KPP vertical mixing parameters |
C-- set default KPP vertical mixing parameters |
62 |
kpp_freq = deltaTClock |
kpp_freq = deltaTClock |
63 |
kpp_dumpFreq = 0. |
kpp_dumpFreq = dumpFreq |
64 |
kpp_taveFreq = 0. |
kpp_taveFreq = taveFreq |
65 |
KPPmixingMaps = .FALSE. |
KPPmixingMaps = .FALSE. |
66 |
KPPwriteState = .FALSE. |
KPPwriteState = .FALSE. |
67 |
minKPPhbl = delZ(1)*0.5 |
minKPPhbl = drF(1)*0.5 |
68 |
|
|
69 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
70 |
C define some non-dimensional constants and |
C define some non-dimensional constants and |