--- MITgcm/model/src/set_defaults.F	2004/06/02 13:23:55	1.61
+++ MITgcm/model/src/set_defaults.F	2004/09/07 21:32:10	1.69
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/set_defaults.F,v 1.61 2004/06/02 13:23:55 adcroft Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/set_defaults.F,v 1.69 2004/09/07 21:32:10 edhill Exp $
 C $Name:  $
 
 #include "CPP_OPTIONS.h"
@@ -79,6 +79,9 @@
       rSphere              = 6370. * 1.D3
 C     General curvilinear coordinate system
       usingCurvilinearGrid = .FALSE.
+C     General cylindrical coordinate system
+      usingCylindricalGrid = .FALSE.
+
 
 C--   Set default "physical" parameters
       DO K =1,Nr
@@ -107,6 +110,10 @@
       no_slip_bottom      = .TRUE.
       diffKrTDefault      = 0.D-3
       diffKrSDefault      = 0.D-3
+      diffKrBL79surf      = 0.D0
+      diffKrBL79deep      = 0.D0
+      diffKrBL79scl       = 200.D0
+      diffKrBL79Ho        = -2000.D0
       viscA4              = 0.D11
       viscA4Grid          = 0.D0
       viscA4Max           = 1.D21
@@ -154,6 +161,7 @@
       bottomDragLinear    = 0.
       bottomDragQuadratic = 0.
       usePickupBeforeC35    = .FALSE.
+      usePickupBeforeC54    = .FALSE.
       debugMode             = .FALSE.
       readPickupWithTracer  = .FALSE.
       writePickupWithTracer = .FALSE.
@@ -164,6 +172,7 @@
       useCDscheme         = .FALSE.
       useEnergyConservingCoriolis = .FALSE.
       useJamartWetPoints  = .FALSE.
+      useJamartMomAdv     = .FALSE.
       SadournyCoriolis    = .FALSE.
       upwindVorticity     = .FALSE.
       highOrderVorticity  = .FALSE.
@@ -202,6 +211,7 @@
       cg2dTargetResWunit = -1.
       cg2dChkResFreq     = 1
       cg2dpcOffDFac      = 0.51D0
+      cg2dPreCondFreq    = 1
       cg3dMaxIters       = 150
       cg3dTargetResidual = 1.D-7
       cg3dChkResFreq     = 1
@@ -222,6 +232,7 @@
       adjDumpFreq       = deltaT*0
       diagFreq          = deltaT*0
       monitorFreq       = -1.
+      mon_iotype        = 1
       taveFreq          = deltaT*0
       tave_lastIter     = 0.5 _d 0
       writeStatePrec    = precFloat64
@@ -238,6 +249,8 @@
       periodicExternalForcing = .FALSE.
       externForcingPeriod     = 0.
       externForcingCycle      = 0.
+      tCyl              = 0.
+
 
 C--   Input files
       bathyFile       = ' '
@@ -250,13 +263,17 @@
       saltClimFile    = ' '
       EmPmRfile       = ' '
       surfQfile       = ' '
-      surfQswfile     = ' '
+      surfQnetFile    = ' '
+      surfQswFile     = ' '
       uVelInitFile    = ' '
       vVelInitFile    = ' '
       pSurfInitFile   = ' '
       dQdTFile        = ' '
       ploadFile       = ' '
       mdsioLocalDir   = ' '
+      DO k = 1,MAX_LEN_FNAM
+        the_run_name(k:k) = ' '
+      ENDDO
 
 C
       RETURN