C ***********************************************************
C Fortran file translated from WHIRL Wed Sep 29 15:51:25 2004
C ***********************************************************
C ***********************************************************

      MODULE all_globals_mod
      use w2f__types
      use active_module
      IMPLICIT NONE
C
C     **** Global Variables ****
C
      type(active) :: ALPHA
      SAVE ALPHA
      type(active) :: AREA(1 : 3)
      SAVE AREA
      type(active) :: BETA
      SAVE BETA
      type(active) :: BHEIGHT(1 : 3)
      SAVE BHEIGHT
      type(active) :: BLENGTH(1 : 3)
      SAVE BLENGTH
      type(active) :: BWIDTH
      SAVE BWIDTH
      type(active) :: DAY
      SAVE DAY
      type(active) :: DAYS_PER_50M_MIXED_LAYER
      SAVE DAYS_PER_50M_MIXED_LAYER
      type(active) :: DELTA
      SAVE DELTA
      type(active) :: DELTA_T
      SAVE DELTA_T
      type(active) :: EPSILON_IC
      SAVE EPSILON_IC
      type(active) :: EPSILON_REGULARIZE
      SAVE EPSILON_REGULARIZE
      type(active) :: FDEPS
      SAVE FDEPS
      type(active) :: FW(1 : 2)
      SAVE FW
      type(active) :: GAMMA_S
      SAVE GAMMA_S
      type(active) :: GAMMA_T
      SAVE GAMMA_T
      type(active) :: HUNDRED
      SAVE HUNDRED
      type(active) :: INTEGRATION_TIME
      SAVE INTEGRATION_TIME
      type(active) :: METRIC
      SAVE METRIC
      type(active) :: METRIC1
      SAVE METRIC1
      type(active) :: METRIC2
      SAVE METRIC2
      type(active) :: NOISE_CORRELATION_TIME
      SAVE NOISE_CORRELATION_TIME
      type(active) :: NULLFORCE(1 : 2)
      SAVE NULLFORCE
      INTEGER(w2f__i4) N_MAX
      SAVE N_MAX
      type(active) :: PROJ_S(1 : 6)
      SAVE PROJ_S
      type(active) :: PROJ_T(1 : 6)
      SAVE PROJ_T
      type(active) :: R(1 : 6)
      SAVE R
      type(active) :: R1(1 : 6)
      SAVE R1
      type(active) :: RHO(1 : 3)
      SAVE RHO
      type(active) :: ROBERT_FILTER_COEFF
      SAVE ROBERT_FILTER_COEFF
      type(active) :: R_S(1 : 6)
      SAVE R_S
      type(active) :: R_T(1 : 6)
      SAVE R_T
      type(active) :: S(1 : 3)
      SAVE S
      type(active) :: SNEW(1 : 3)
      SAVE SNEW
      type(active) :: SNOW(1 : 3)
      SAVE SNOW
      type(active) :: SOLD(1 : 3)
      SAVE SOLD
      type(active) :: SSTAR(1 : 2)
      SAVE SSTAR
      type(active) :: SV
      SAVE SV
      type(active) :: T(1 : 3)
      SAVE T
      type(active) :: THC_S
      SAVE THC_S
      type(active) :: THC_T
      SAVE THC_T
      type(active) :: THC_TOT
      SAVE THC_TOT
      type(active) :: THOUSAND
      SAVE THOUSAND
      type(active) :: TNEW(1 : 3)
      SAVE TNEW
      type(active) :: TNOW(1 : 3)
      SAVE TNOW
      type(active) :: TOLD(1 : 3)
      SAVE TOLD
      type(active) :: TSTAR(1 : 2)
      SAVE TSTAR
      type(active) :: TSVEC(1 : 6)
      SAVE TSVEC
      type(active) :: U0
      SAVE U0
      type(active) :: UBAR
      SAVE UBAR
      type(active) :: UVEL
      SAVE UVEL
      LOGICAL(w2f__i4) VERBMODE
      SAVE VERBMODE
      type(active) :: VOL(1 : 3)
      SAVE VOL
      type(active) :: X(1 : 6, 1 : 6)
      SAVE X
      type(active) :: XX(1 : 6)
      SAVE XX
      type(active) :: Y(1 : 6)
      SAVE Y
      type(active) :: YEAR
      SAVE YEAR
C
C     **** Local Variables and functions ****
C
      INTEGER(w2f__i4) NDIM
      PARAMETER ( NDIM = 3)
C
C     **** statements ****
C
      END MODULE