pkg/fizhi/sibber.h

C $Header:  $
C $Name:  $

C****
C**** CHIP HEADER FILE
C****

C   SCCS VERSION @(#)sibber.h   1.1 10/15/92

      INTEGER  NTYPS, FRSTCH, MemFac
      INTEGER  NLAY, SFCLY, ROOTLY, RECHLY

      _RL  ZERO, ONE, PIE
      _RL ALHE, ALHS, ALHM, TF, STEFAN, RGAS, SHW, SHI, RHOW, GRAV
      _RL EPSILON, NOSNOW

      PARAMETER (NTYPS = 10, FRSTCH = 1, MemFac = 5)
      PARAMETER (NLAY = 3)
      PARAMETER (SFCLY = 1, ROOTLY = SFCLY + 1, RECHLY = ROOTLY + 1)

      PARAMETER (ZERO = 0., ONE = 1., PIE = 3.14159265)
      PARAMETER (ALHE = 2.4548E6, ALHS = 2.8368E6, ALHM = ALHS-ALHE)
      PARAMETER (TF = 273.16)
      PARAMETER (STEFAN = 5.669E-8)
      PARAMETER (RGAS = .286*1003.5)
      PARAMETER (SHW = 4200., SHI = 2060.)
      PARAMETER (RHOW = 1000.)
      PARAMETER (GRAV = 9.81)
      PARAMETER (EPSILON = 18.01/28.97)
      PARAMETER (NOSNOW = 0.)
1	C $Header: $
2	C $Name: $
3
4	C****
5	C**** CHIP HEADER FILE
6	C****
7
8	C SCCS VERSION @(#)sibber.h 1.1 10/15/92
9
10	INTEGER NTYPS, FRSTCH, MemFac
11	INTEGER NLAY, SFCLY, ROOTLY, RECHLY
12
13	_RL ZERO, ONE, PIE
14	_RL ALHE, ALHS, ALHM, TF, STEFAN, RGAS, SHW, SHI, RHOW, GRAV
15	_RL EPSILON, NOSNOW
16
17	PARAMETER (NTYPS = 10, FRSTCH = 1, MemFac = 5)
18	PARAMETER (NLAY = 3)
19	PARAMETER (SFCLY = 1, ROOTLY = SFCLY + 1, RECHLY = ROOTLY + 1)
20
21	PARAMETER (ZERO = 0., ONE = 1., PIE = 3.14159265)
22	PARAMETER (ALHE = 2.4548E6, ALHS = 2.8368E6, ALHM = ALHS-ALHE)
23	PARAMETER (TF = 273.16)
24	PARAMETER (STEFAN = 5.669E-8)
25	PARAMETER (RGAS = .286*1003.5)
26	PARAMETER (SHW = 4200., SHI = 2060.)
27	PARAMETER (RHOW = 1000.)
28	PARAMETER (GRAV = 9.81)
29	PARAMETER (EPSILON = 18.01/28.97)
30	PARAMETER (NOSNOW = 0.)