1 |
C /==========================================================\ |
2 |
C | CFC.h | |
3 |
C |==========================================================| |
4 |
|
5 |
COMMON /CFC_NEEDS/ |
6 |
& AtmosCFC11, AtmosCFC12, AtmosP, |
7 |
& pisvel,fice |
8 |
_RL AtmosCFC11(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
9 |
_RL AtmosCFC12(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
10 |
_RL Atmosp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
11 |
_RL pisvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
12 |
_RL fice(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
13 |
|
14 |
COMMON /CFC11_CHEM/ |
15 |
& A1_11,A2_11,A3_11,A4_11, |
16 |
& B1_11,B2_11,B3_11, |
17 |
& A1_12,A2_12,A3_12,A4_12, |
18 |
& B1_12,B2_12,B3_12 |
19 |
_RL A1_11,A2_11,A3_11,A4_11 |
20 |
_RL B1_11,B2_11,B3_11 |
21 |
_RL A1_12,A2_12,A3_12,A4_12 |
22 |
_RL B1_12,B2_12,B3_12 |
23 |
|
24 |
|
25 |
C schmidt number coefficients |
26 |
COMMON /SCHMIDT_NO/ |
27 |
& sca_11_1, sca_11_2, sca_11_3, sca_11_4, |
28 |
& sca_12_1, sca_12_2, sca_12_3, sca_12_4 |
29 |
_RL sca_11_1, sca_11_2, sca_11_3, sca_11_4 |
30 |
_RL sca_12_1, sca_12_2, sca_12_3, sca_12_4 |
31 |
|
32 |
c atmospheric CFC timseries |
33 |
COMMON /CFC_atmosdata/ |
34 |
& ACFC11, ACFC12, |
35 |
& cfc_yearbeg, cfc_yearend |
36 |
_RL ACFC11(100,2) |
37 |
_RL ACFC12(100,2) |
38 |
INTEGER cfc_yearbeg, cfc_yearend |
39 |
|