Parent Directory | Revision Log | Revision Graph | Patch
revision 1.10 by edhill, Sun Oct 10 06:08:49 2004 UTC | revision 1.11 by jmc, Thu Oct 14 20:29:21 2004 UTC | |
---|---|---|
# | Line 67 C-- set default KPP vertical mixing pa | Line 67 C-- set default KPP vertical mixing pa |
67 | kpp_taveFreq = taveFreq | kpp_taveFreq = taveFreq |
68 | KPPmixingMaps = .FALSE. | KPPmixingMaps = .FALSE. |
69 | KPPwriteState = .FALSE. | KPPwriteState = .FALSE. |
70 | minKPPhbl = drF(1)*0.5 | IF ( setCenterDr ) THEN |
71 | minKPPhbl = delRc(1) | |
72 | ELSE | |
73 | minKPPhbl = delR(1)*0.5 | |
74 | ENDIF | |
75 | ||
76 | C----------------------------------------------------------------------- | C----------------------------------------------------------------------- |
77 | C define some non-dimensional constants and | C define some non-dimensional constants and |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |