/[MITgcm]/MITgcm/pkg/kpp/kpp_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/kpp/kpp_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by cnh, Sun Feb 4 14:38:50 2001 UTC revision 1.4.8.3 by heimbach, Mon Jul 7 16:18:47 2003 UTC
# Line 26  C     === Local variables === Line 26  C     === Local variables ===
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/
35       & kpp_freq, kpp_dumpFreq, kpp_taveFreq,       & kpp_freq, kpp_dumpFreq, kpp_taveFreq,
36       & KPPmixingMaps, KPPwriteState,       & KPPmixingMaps, KPPwriteState,
37       & minKPPhbl,       & minKPPhbl, maxKPPhbl,
38       & epsln, phepsi, epsilon, vonk, dB_dz,       & epsln, phepsi, epsilon, vonk, dB_dz,
39       & conc1, conam, concm, conc2, zetam,       & conc1, conam, concm, conc2, zetam,
40       & conas, concs, conc3, zetas,       & conas, concs, conc3, zetas,
# Line 61  C--   KPP vertical mixing parameters Line 60  C--   KPP vertical mixing parameters
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          maxKPPhbl     = drF(1)*0.5
69    
70  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
71  C define some non-dimensional constants and  C define some non-dimensional constants and
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.8.3
  ViewVC Help
Powered by ViewVC 1.1.22