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	jmc	1.4	C $Header: $
2			C $Name: $
3
4	molod	1.1	C****
5			C**** CHIP HEADER FILE
6			C****
7
8	jmc	1.4	C SCCS VERSION @(#)sibber.h 1.1 10/15/92
9	molod	1.1
10	molod	1.2	INTEGER NTYPS, FRSTCH, MemFac
11	molod	1.1	INTEGER NLAY, SFCLY, ROOTLY, RECHLY
12
13	molod	1.3	_RL ZERO, ONE, PIE
14			_RL ALHE, ALHS, ALHM, TF, STEFAN, RGAS, SHW, SHI, RHOW, GRAV
15			_RL EPSILON, NOSNOW
16	molod	1.1
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.)