pkg/fizhi/sibber.h

4dad0f083a Andr*0001 C****
                0002 C**** CHIP HEADER FILE
                0003 C****
                0004
aab9c05604 Jean*0005 C   SCCS VERSION @(#)sibber.h   1.1 10/15/92
4dad0f083a Andr*0006
87329dfe43 Andr*0007       INTEGER  NTYPS, FRSTCH, MemFac
4dad0f083a Andr*0008       INTEGER  NLAY, SFCLY, ROOTLY, RECHLY
                0009
44d19a8651 Andr*0010       _RL  ZERO, ONE, PIE
                0011       _RL ALHE, ALHS, ALHM, TF, STEFAN, RGAS, SHW, SHI, RHOW, GRAV
                0012       _RL EPSILON, NOSNOW
4dad0f083a Andr*0013
                0014       PARAMETER (NTYPS = 10, FRSTCH = 1, MemFac = 5)
                0015       PARAMETER (NLAY = 3)
                0016       PARAMETER (SFCLY = 1, ROOTLY = SFCLY + 1, RECHLY = ROOTLY + 1)
                0017
                0018       PARAMETER (ZERO = 0., ONE = 1., PIE = 3.14159265)
                0019       PARAMETER (ALHE = 2.4548E6, ALHS = 2.8368E6, ALHM = ALHS-ALHE)
                0020       PARAMETER (TF = 273.16)
                0021       PARAMETER (STEFAN = 5.669E-8)
                0022       PARAMETER (RGAS = .286*1003.5)
                0023       PARAMETER (SHW = 4200., SHI = 2060.)
                0024       PARAMETER (RHOW = 1000.)
                0025       PARAMETER (GRAV = 9.81)
                0026       PARAMETER (EPSILON = 18.01/28.97)
                0027       PARAMETER (NOSNOW = 0.)