pkg/cfc/cfc_param.F

8ac664a04c Step*0001 #include "GCHEM_OPTIONS.h"
                0002
                0003 CStartOfInterface
                0004       SUBROUTINE CFC_PARAM( myThid )
a14c2e94c2 Jean*0005 C     *==========================================================*
                0006 C     | SUBROUTINE CFC_PARAM
                0007 C     | o Set parameters needed for CFC runs
                0008 C     *==========================================================*
                0009 C     *==========================================================*
8ac664a04c Step*0010       IMPLICIT NONE
                0011
                0012 C     === Global variables ===
                0013 #include "SIZE.h"
                0014 #include "EEPARAMS.h"
a14c2e94c2 Jean*0015 c #include "PARAMS.h"
8ac664a04c Step*0016 #include "CFC.h"
                0017
                0018 C     == Routine arguments ==
a14c2e94c2 Jean*0019 C     myThid -  Number of this instance of CFC_PARAM
8ac664a04c Step*0020       INTEGER myThid
                0021 CEndOfInterface
                0022
                0023 #ifdef ALLOW_CFC
                0024
a14c2e94c2 Jean*0025 C     == Local variables ==
8ac664a04c Step*0026
a14c2e94c2 Jean*0027       _BEGIN_MASTER( myThid )
8ac664a04c Step*0028 C set up coefficients for CFC11
                0029 C define Schmidt no. coefficients for CFC11
a14c2e94c2 Jean*0030       sca_11_1 = 3501.8 _d 0
                0031       sca_11_2 = -210.31 _d 0
                0032       sca_11_3 =    6.1851 _d 0
                0033       sca_11_4 =   -0.075139 _d 0
8ac664a04c Step*0034 C coefficients for determining solubility of CFC12
a14c2e94c2 Jean*0035       A1_11=  -229.9261 _d 0
                0036       A2_11=   319.6552 _d 0
                0037       A3_11=   119.4471 _d 0
                0038       A4_11=   -1.39165 _d 0
                0039       B1_11=   -0.142382 _d 0
                0040       B2_11=    0.091459 _d 0
                0041       B3_11=   -0.0157274 _d 0
8ac664a04c Step*0042
                0043 C set up coefficients for CFC12
                0044 C define Schmidt no. coefficients for CFC12
a14c2e94c2 Jean*0045       sca_12_1 = 3845.4 _d 0
                0046       sca_12_2 = -228.95 _d 0
                0047       sca_12_3 =    6.1908 _d 0
                0048       sca_12_4 =   -0.067430 _d 0
8ac664a04c Step*0049 C coefficients for determining solubility of CFC12
a14c2e94c2 Jean*0050       A1_12=  -218.0971 _d 0
                0051       A2_12=   298.9702 _d 0
                0052       A3_12=   113.8049 _d 0
                0053       A4_12=   -1.39165 _d 0
                0054       B1_12=   -0.143566 _d 0
                0055       B2_12=    0.091015 _d 0
                0056       B3_12=   -0.0153924 _d 0
8ac664a04c Step*0057
a14c2e94c2 Jean*0058       _END_MASTER( myThid )
8ac664a04c Step*0059
a14c2e94c2 Jean*0060 C--   Everyone else must wait for the parameters to be loaded
                0061       _BARRIER
8ac664a04c Step*0062
a14c2e94c2 Jean*0063 #endif /* ALLOW_CFC */
8ac664a04c Step*0064
                0065       RETURN
                0066       END