1 |
molod |
1.1 |
FUNCTION GETCON (NAME) |
2 |
|
|
C*********************************************************************** |
3 |
|
|
C GENERIC FUNCTION GETCON IS A REPOSITORY OF GLOBAL VARIABLES, I.E. |
4 |
|
|
C A MEMORY FOR SCALAR VALUES NEEDED THROUGHOUT A LARGE PROGRAM. |
5 |
|
|
C |
6 |
|
|
C THIS SPECIFIC FUNCTION, GETCON, REMEMBERS FLOATING POINT VALUES. |
7 |
|
|
C THE FUNCTION IS CALLED WITH A CHARACTER NAME TO INTERROGATE A VALUE. |
8 |
|
|
C*********************************************************************** |
9 |
|
|
C |
10 |
|
|
INTEGER MAXCON |
11 |
|
|
PARAMETER (MAXCON=40) |
12 |
|
|
CHARACTER*(*) NAME |
13 |
|
|
CHARACTER*16 ANAME(MAXCON) |
14 |
|
|
real ACON (MAXCON) |
15 |
|
|
|
16 |
|
|
C COMPUTATIONAL CONSTANTS |
17 |
|
|
C ----------------------- |
18 |
|
|
PARAMETER ( VECMAX = 65535.5 ) |
19 |
|
|
PARAMETER ( CALTOJ = 4184. ) |
20 |
|
|
PARAMETER ( UNDEF = 1.E15 ) |
21 |
|
|
|
22 |
|
|
C ASTRONOMICAL CONSTANTS |
23 |
|
|
C ---------------------- |
24 |
|
|
PARAMETER ( OB = 23.45 ) |
25 |
|
|
PARAMETER ( PER = 102. ) |
26 |
|
|
PARAMETER ( ECC = .0167 ) |
27 |
|
|
PARAMETER ( AE = 6371E3 ) |
28 |
|
|
PARAMETER ( EQNX = 80.5 ) |
29 |
|
|
PARAMETER ( SOLS = 176.5 ) |
30 |
|
|
PARAMETER ( S0 = 1365.0 ) |
31 |
|
|
|
32 |
|
|
C TERRESTRIAL CONSTANTS |
33 |
|
|
C --------------------- |
34 |
|
|
PARAMETER ( GRAV = 9.81 ) |
35 |
|
|
PARAMETER ( SRFPRS = 984.7 ) |
36 |
|
|
PARAMETER ( PIMEAN = 984.7 ) |
37 |
|
|
PARAMETER ( PSTD = 1000.0 ) |
38 |
|
|
PARAMETER ( TSTD = 280.0 ) |
39 |
|
|
PARAMETER ( SDAY = 86400.0 ) |
40 |
|
|
PARAMETER ( SSALB = 0.99 ) |
41 |
|
|
PARAMETER ( CO2 = 355.0 ) |
42 |
|
|
PARAMETER ( CFC11 = 0.3 ) |
43 |
|
|
PARAMETER ( CFC12 = 0.5 ) |
44 |
|
|
PARAMETER ( CFC22 = 0.2 ) |
45 |
|
|
|
46 |
|
|
C THERMODYNAMIC CONSTANTS |
47 |
|
|
C ----------------------- |
48 |
|
|
PARAMETER ( CPD = 1004.16 ) |
49 |
|
|
PARAMETER ( CPV = 1869.46 ) |
50 |
|
|
PARAMETER ( ALHL = 2.499E6 ) |
51 |
|
|
PARAMETER ( ALHS = 2.845E6 ) |
52 |
|
|
PARAMETER ( STFBOL = 5.67E-8 ) |
53 |
|
|
PARAMETER ( AIRMW = 28.97 ) |
54 |
|
|
PARAMETER ( H2OMW = 18.01 ) |
55 |
|
|
PARAMETER ( RUNIV = 8314.3 ) |
56 |
|
|
PARAMETER ( RGAS = RUNIV/AIRMW) |
57 |
|
|
PARAMETER ( RVAP = RUNIV/H2OMW) |
58 |
|
|
PARAMETER ( RKAP = RGAS/CPD ) |
59 |
|
|
PARAMETER ( HEATW = 597.2 ) |
60 |
|
|
PARAMETER ( HEATI = 680.0 ) |
61 |
|
|
PARAMETER ( TICE = 273.16 ) |
62 |
|
|
|
63 |
|
|
C TURBULENCE CONSTANTS |
64 |
|
|
C -------------------- |
65 |
|
|
PARAMETER ( VKRM = 0.4 ) |
66 |
|
|
|
67 |
|
|
C MOISTURE CONSTANTS |
68 |
|
|
C ------------------ |
69 |
|
|
PARAMETER ( EPS = 0.622 ) |
70 |
|
|
PARAMETER ( VIRTCON= 0.609 ) |
71 |
|
|
PARAMETER ( EPSFAC = EPS*HEATW/RGAS*CALTOJ ) |
72 |
|
|
|
73 |
|
|
DATA ANAME(1 ),ACON(1 ) / 'CP ', CPD / |
74 |
|
|
DATA ANAME(2 ),ACON(2 ) / 'RGAS ', RGAS / |
75 |
|
|
DATA ANAME(3 ),ACON(3 ) / 'KAPPA ', RKAP / |
76 |
|
|
DATA ANAME(4 ),ACON(4 ) / 'LATENT HEAT COND', ALHL / |
77 |
|
|
DATA ANAME(5 ),ACON(5 ) / 'GRAVITY ', GRAV / |
78 |
|
|
DATA ANAME(6 ),ACON(6 ) / 'STEFAN-BOLTZMAN ', STFBOL / |
79 |
|
|
DATA ANAME(7 ),ACON(7 ) / 'VON KARMAN ', VKRM / |
80 |
|
|
DATA ANAME(8 ),ACON(8 ) / 'EARTH RADIUS ', AE / |
81 |
|
|
DATA ANAME(9 ),ACON(9 ) / 'OBLIQUITY ', OB / |
82 |
|
|
DATA ANAME(10),ACON(10) / 'ECCENTRICITY ', ECC / |
83 |
|
|
DATA ANAME(11),ACON(11) / 'PERIHELION ', PER / |
84 |
|
|
DATA ANAME(12),ACON(12) / 'VERNAL EQUINOX ', EQNX / |
85 |
|
|
DATA ANAME(13),ACON(13) / 'SUMMER SOLSTICE ', SOLS / |
86 |
|
|
DATA ANAME(14),ACON(14) / 'MAX VECT LENGTH ', VECMAX / |
87 |
|
|
DATA ANAME(15),ACON(15) / 'MOL WT H2O ', H2OMW / |
88 |
|
|
DATA ANAME(16),ACON(16) / 'MOL WT AIR ', AIRMW / |
89 |
|
|
DATA ANAME(17),ACON(17) / 'CPV ', CPV / |
90 |
|
|
DATA ANAME(18),ACON(18) / 'CPD ', CPD / |
91 |
|
|
DATA ANAME(19),ACON(19) / 'UNIV GAS CONST ', RUNIV / |
92 |
|
|
DATA ANAME(20),ACON(20) / 'LATENT HEAT SBLM', ALHS / |
93 |
|
|
DATA ANAME(21),ACON(21) / 'FREEZING-POINT ', TICE / |
94 |
|
|
DATA ANAME(23),ACON(23) / 'CALTOJ ', CALTOJ / |
95 |
|
|
DATA ANAME(24),ACON(24) / 'EPS ', EPS / |
96 |
|
|
DATA ANAME(25),ACON(25) / 'HEATW ', HEATW / |
97 |
|
|
DATA ANAME(26),ACON(26) / 'EPSFAC ', EPSFAC / |
98 |
|
|
DATA ANAME(27),ACON(27) / 'VIRTCON ', VIRTCON/ |
99 |
|
|
DATA ANAME(28),ACON(28) / 'PIMEAN ', PIMEAN / |
100 |
|
|
DATA ANAME(29),ACON(29) / 'SDAY ', SDAY / |
101 |
|
|
DATA ANAME(30),ACON(30) / 'HEATI ', HEATI / |
102 |
|
|
DATA ANAME(31),ACON(31) / 'S0 ', S0 / |
103 |
|
|
DATA ANAME(32),ACON(32) / 'PSTD ', PSTD / |
104 |
|
|
DATA ANAME(33),ACON(33) / 'TSTD ', TSTD / |
105 |
|
|
DATA ANAME(34),ACON(34) / 'SSALB ', SSALB / |
106 |
|
|
DATA ANAME(35),ACON(35) / 'UNDEF ', UNDEF / |
107 |
|
|
DATA ANAME(36),ACON(36) / 'CO2 ', CO2 / |
108 |
|
|
DATA ANAME(37),ACON(37) / 'RVAP ', RVAP / |
109 |
|
|
DATA ANAME(38),ACON(38) / 'CFC11 ', CFC11 / |
110 |
|
|
DATA ANAME(39),ACON(39) / 'CFC12 ', CFC12 / |
111 |
|
|
DATA ANAME(40),ACON(40) / 'CFC22 ', CFC22 / |
112 |
|
|
|
113 |
|
|
DO 10 I=1,MAXCON |
114 |
|
|
IF(NAME.EQ.ANAME(I)) THEN |
115 |
|
|
GETCON = ACON(I) |
116 |
|
|
RETURN |
117 |
|
|
ENDIF |
118 |
|
|
10 CONTINUE |
119 |
|
|
|
120 |
|
|
900 PRINT *,' CANNOT FIND FLOATING POINT CONSTANT - ',NAME |
121 |
|
|
PRINT *,' GETCON - CANNOT FIND CONSTANT REQUESTED' |
122 |
|
|
RETURN |
123 |
|
|
END |