/[MITgcm]/MITgcm/pkg/cfc/cfc_param.F
ViewVC logotype

Annotation of /MITgcm/pkg/cfc/cfc_param.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.1 - (hide annotations) (download)
Mon Oct 6 20:03:06 2003 UTC (20 years, 7 months ago) by stephd
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint51k_post, checkpoint57t_post, checkpoint57o_post, checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint58e_post, checkpoint57v_post, checkpoint52n_post, checkpoint52j_post, checkpoint53d_post, checkpoint54a_pre, checkpoint51o_pre, checkpoint57m_post, checkpoint55c_post, checkpoint54e_post, checkpoint52e_post, checkpoint57s_post, checkpoint51n_pre, checkpoint54a_post, checkpoint53c_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint51l_post, checkpoint57g_post, checkpoint51q_post, checkpoint57b_post, checkpoint57c_pre, checkpoint51j_post, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, hrcube_1, checkpoint57e_post, branch-netcdf, checkpoint52d_pre, checkpoint52l_post, checkpoint55h_post, checkpoint51r_post, checkpoint52k_post, checkpoint52b_pre, checkpoint57g_pre, checkpoint54b_post, checkpoint53b_pre, checkpoint55b_post, checkpoint58h_post, checkpoint54d_post, checkpoint56c_post, checkpoint52m_post, checkpoint57y_pre, checkpoint55, checkpoint53a_post, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint54f_post, checkpoint53b_post, checkpoint55g_post, checkpoint51o_post, checkpoint51p_post, checkpoint58j_post, checkpoint52a_pre, checkpoint55f_post, checkpoint57r_post, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint51i_post, checkpoint53, checkpoint52, checkpoint51f_post, checkpoint52d_post, eckpoint57e_pre, checkpoint52a_post, checkpoint57h_done, checkpoint58f_post, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint57x_post, checkpoint57n_post, checkpoint52c_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint57f_post, checkpoint58a_post, checkpoint51h_pre, checkpoint51l_pre, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, ecco_c52_e35, hrcube5, checkpoint57z_post, checkpoint57c_post, checkpoint55e_post, checkpoint58k_post, checkpoint52i_post, checkpoint52j_pre, checkpoint53f_post, checkpoint55a_post, checkpoint51t_post, checkpoint53d_pre, checkpoint54c_post, checkpoint51n_post, checkpoint57j_post, checkpoint58b_post, checkpoint57h_pre, checkpoint51i_pre, checkpoint58m_post, checkpoint57l_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, checkpoint57h_post, hrcube_2, hrcube_3, checkpoint56a_post, checkpoint51m_post, checkpoint51s_post, checkpoint55d_post
Branch point for: branch-nonh, tg2-branch, checkpoint51n_branch, netcdf-sm0 
add CFC's for use with gchem package
1 stephd 1.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
  ViewVC Help
Powered by ViewVC 1.1.22