pkg/cfc/cfc_param.F


#include "CPP_OPTIONS.h"
#include "GCHEM_OPTIONS.h"

CStartOfInterface
      SUBROUTINE CFC_PARAM( myThid )
C     /==========================================================\
C     | SUBROUTINE CFC_PARAM                                     |
C     | o Set parameters needed for                              |
C     | o CFC runs
C     |==========================================================|
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "DYNVARS.h"
#include "CFC.h"

C     == Routine arguments ==
C     myThid -  Number of this instance of INI_TR1
      INTEGER myThid
      integer i,j,bi,bj
CEndOfInterface

C     == Local variables ==

#ifdef ALLOW_CFC

      _BARRIER

C set up coefficients for CFC11
C define Schmidt no. coefficients for CFC11
      sca_11_1 = 3501.8
      sca_11_2 = -210.31
      sca_11_3 =    6.1851
      sca_11_4 =   -0.075139
C coefficients for determining solubility of CFC12
      A1_11=  -229.9261
      A2_11=   319.6552
      A3_11=   119.4471
      A4_11=   -1.39165
      B1_11=   -0.142382
      B2_11=    0.091459
      B3_11=   -0.0157274

C set up coefficients for CFC12
C define Schmidt no. coefficients for CFC12
      sca_12_1 = 3845.4
      sca_12_2 = -228.95
      sca_12_3 =    6.1908
      sca_12_4 =   -0.067430
C coefficients for determining solubility of CFC12
      A1_12=  -218.0971
      A2_12=   298.9702
      A3_12=   113.8049
      A4_12=   -1.39165
      B1_12=   -0.143566 
      B2_12=    0.091015
      B3_12=   -0.0153924

c
#endif


      RETURN
      END
1
2	#include "CPP_OPTIONS.h"
3	#include "GCHEM_OPTIONS.h"
4
5	CStartOfInterface
6	SUBROUTINE CFC_PARAM( myThid )
7	C /==========================================================\
8	C \| SUBROUTINE CFC_PARAM \|
9	C \| o Set parameters needed for \|
10	C \| o CFC runs
11	C \|==========================================================\|
12	C \==========================================================/
13	IMPLICIT NONE
14
15	C === Global variables ===
16	#include "SIZE.h"
17	#include "EEPARAMS.h"
18	#include "PARAMS.h"
19	#include "GRID.h"
20	#include "DYNVARS.h"
21	#include "CFC.h"
22
23	C == Routine arguments ==
24	C myThid - Number of this instance of INI_TR1
25	INTEGER myThid
26	integer i,j,bi,bj
27	CEndOfInterface
28
29	C == Local variables ==
30
31	#ifdef ALLOW_CFC
32
33	_BARRIER
34
35	C set up coefficients for CFC11
36	C define Schmidt no. coefficients for CFC11
37	sca_11_1 = 3501.8
38	sca_11_2 = -210.31
39	sca_11_3 = 6.1851
40	sca_11_4 = -0.075139
41	C coefficients for determining solubility of CFC12
42	A1_11= -229.9261
43	A2_11= 319.6552
44	A3_11= 119.4471
45	A4_11= -1.39165
46	B1_11= -0.142382
47	B2_11= 0.091459
48	B3_11= -0.0157274
49
50	C set up coefficients for CFC12
51	C define Schmidt no. coefficients for CFC12
52	sca_12_1 = 3845.4
53	sca_12_2 = -228.95
54	sca_12_3 = 6.1908
55	sca_12_4 = -0.067430
56	C coefficients for determining solubility of CFC12
57	A1_12= -218.0971
58	A2_12= 298.9702
59	A3_12= 113.8049
60	A4_12= -1.39165
61	B1_12= -0.143566
62	B2_12= 0.091015
63	B3_12= -0.0153924
64
65	c
66	#endif
67
68
69
70	RETURN
71	END