File indexing completed on 2018-03-02 18:38:20 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
8ac664a04c Step*0001 #include "GCHEM_OPTIONS.h"
0002
0003
0004 SUBROUTINE CFC_PARAM( myThid )
a14c2e94c2 Jean*0005
0006
0007
0008
0009
8ac664a04c Step*0010 IMPLICIT NONE
0011
0012
0013 #include "SIZE.h"
0014 #include "EEPARAMS.h"
a14c2e94c2 Jean*0015
8ac664a04c Step*0016 #include "CFC.h"
0017
0018
a14c2e94c2 Jean*0019
8ac664a04c Step*0020 INTEGER myThid
0021
0022
0023 #ifdef ALLOW_CFC
0024
a14c2e94c2 Jean*0025
8ac664a04c Step*0026
a14c2e94c2 Jean*0027 _BEGIN_MASTER( myThid )
8ac664a04c Step*0028
0029
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
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
0044
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
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
0061 _BARRIER
8ac664a04c Step*0062
a14c2e94c2 Jean*0063 #endif /* ALLOW_CFC */
8ac664a04c Step*0064
0065 RETURN
0066 END