/[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.17 by dfer, Thu Oct 30 18:51:36 2008 UTC revision 1.18 by dfer, Fri Nov 14 21:34:48 2008 UTC
# Line 17  C     !USES: Line 17  C     !USES:
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "PARAMS.h"  #include "PARAMS.h"
 #include "GRID.h"  
20  #include "KPP_PARAMS.h"  #include "KPP_PARAMS.h"
21    
22  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
# Line 68  C--   set default KPP vertical mixing pa Line 67  C--   set default KPP vertical mixing pa
67        KPPmixingMaps = .FALSE.        KPPmixingMaps = .FALSE.
68        KPPwriteState = .FALSE.        KPPwriteState = .FALSE.
69        KPP_ghatUseTotalDiffus = .FALSE.        KPP_ghatUseTotalDiffus = .FALSE.
70        IF ( setCenterDr ) THEN        minKPPhbl = UNSET_RL
         minKPPhbl   = delRc(1)  
       ELSE  
         minKPPhbl   = delR(1)*0.5  
       ENDIF  
71    
72  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
73  C define some non-dimensional constants and  C define some non-dimensional constants and
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22