/[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.2 by heimbach, Wed Sep 13 17:07:11 2000 UTC revision 1.6 by heimbach, Sat Jul 13 03:12:30 2002 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3  #include "KPP_OPTIONS.h"  #include "KPP_OPTIONS.h"
4    
5        SUBROUTINE KPP_READPARMS( myThid )        SUBROUTINE KPP_READPARMS( myThid )
# Line 33  C--   KPP vertical mixing parameters Line 35  C--   KPP vertical mixing parameters
35        NAMELIST /KPP_PARM01/        NAMELIST /KPP_PARM01/
36       & kpp_freq, kpp_dumpFreq, kpp_taveFreq,       & kpp_freq, kpp_dumpFreq, kpp_taveFreq,
37       & KPPmixingMaps, KPPwriteState,       & KPPmixingMaps, KPPwriteState,
      & minKPPviscAz, maxKPPviscAz, minKPPghat, maxKPPghat,  
      & minKPPdiffKzT, maxKPPdiffKzT, minKPPdiffKzS, maxKPPdiffKzS,  
38       & minKPPhbl,       & minKPPhbl,
39       & epsln, phepsi, epsilon, vonk, dB_dz,       & epsln, phepsi, epsilon, vonk, dB_dz,
40       & conc1, conam, concm, conc2, zetam,       & conc1, conam, concm, conc2, zetam,
# Line 65  C--   set default KPP vertical mixing pa Line 65  C--   set default KPP vertical mixing pa
65        kpp_taveFreq  = 0.        kpp_taveFreq  = 0.
66        KPPmixingMaps = .FALSE.        KPPmixingMaps = .FALSE.
67        KPPwriteState = .FALSE.        KPPwriteState = .FALSE.
68        minKPPghat    = 0.        minKPPhbl     = drF(1)*0.5
       maxKPPghat    = 1.e10  
       minKPPviscAz  = 0.  
       DO k = 1,Nr  
          maxKPPviscAz(k) = 100.  
       ENDDO  
       minKPPdiffKzT = 0.  
       maxKPPdiffKzT = 100.  
       minKPPdiffKzS = 0.  
       maxKPPdiffKzS = 100.  
       minKPPhbl     = delZ(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.2  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22