! source file: /usr/local/models/UVic_ESCM/2.9/source/common/scalar.h
!====================== include file "scalar.h" ========================

!     various scalar quantities:

!     dtts   = time step for density & tracers (in seconds)
!     dtuv   = time step for baroclinic velocity (in seconds)
!     dtsf   = time step for barotropic velocity (in seconds)
!     c2dtts = 2*dtts
!     c2dtuv = 2*dtuv
!     c2dtsf = 2*dtsf
!     acor   = (>0, 0) = (implicit, explicit) treatment of Coriolis
!               term for internal and external modes.
!     rho0   = mean density for Bousinessq approximation
!     rho0r  = 1/rho0
!     omega  = earth`s rotation rate (radians/sec)
!     radius = earth`s radius (cm)
!     grav   = earth`s gravitational acceleration (cm/sec**2)
!     cdbot  = bottom drag coefficient
!     ncon   = number of  passes through convective code in tracer
!     gcor   = time centring for Coriolis term

!     taux0  = constant zonal windstress (dynes/cm**2) for idealized
!              equatorial studies
!     tauy0  = constant meridional windstress (dynes/cm**2) for
!              idealized equatorial studies

      integer ncon
      common /scalar_i/ ncon

      real dtts, dtuv, dtsf, c2dtts, c2dtuv, c2dtsf, acor, rho0
      real rho0r, omega, radius, grav, cdbot, gcor, taux0, tauy0
      common /scalar_r/ dtts, dtuv, dtsf, c2dtts, c2dtuv, c2dtsf, acor
      common /scalar_r/ rho0, rho0r, omega, radius, grav, cdbot, gcor
      common /scalar_r/ taux0, tauy0

!     various non dimensional quantities:

!     radian = degrees per radian
!     pi     = something good to eat

      real radian, pi
      common /ndcon/ radian, pi