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

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

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

revision 1.1 by stephd, Mon Oct 6 20:03:06 2003 UTC revision 1.2 by jmc, Wed Aug 2 22:50:49 2006 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
 #include "CPP_OPTIONS.h"  
4  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
5    
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE CFC_PARAM( myThid )        SUBROUTINE CFC_PARAM( myThid )
8  C     /==========================================================\  C     *==========================================================*
9  C     | SUBROUTINE CFC_PARAM                                     |  C     | SUBROUTINE CFC_PARAM
10  C     | o Set parameters needed for                              |  C     | o Set parameters needed for CFC runs
11  C     | o CFC runs  C     *==========================================================*
12  C     |==========================================================|  C     *==========================================================*
 C     \==========================================================/  
13        IMPLICIT NONE        IMPLICIT NONE
14    
15  C     === Global variables ===  C     === Global variables ===
16  #include "SIZE.h"  #include "SIZE.h"
17  #include "EEPARAMS.h"  #include "EEPARAMS.h"
18  #include "PARAMS.h"  c #include "PARAMS.h"
 #include "GRID.h"  
 #include "DYNVARS.h"  
19  #include "CFC.h"  #include "CFC.h"
20    
21  C     == Routine arguments ==  C     == Routine arguments ==
22  C     myThid -  Number of this instance of INI_TR1  C     myThid -  Number of this instance of CFC_PARAM
23        INTEGER myThid        INTEGER myThid
       integer i,j,bi,bj  
24  CEndOfInterface  CEndOfInterface
25    
 C     == Local variables ==  
   
26  #ifdef ALLOW_CFC  #ifdef ALLOW_CFC
27    
28        _BARRIER  C     == Local variables ==
29    
30          _BEGIN_MASTER( myThid )
31  C set up coefficients for CFC11  C set up coefficients for CFC11
32  C define Schmidt no. coefficients for CFC11  C define Schmidt no. coefficients for CFC11
33        sca_11_1 = 3501.8        sca_11_1 = 3501.8 _d 0
34        sca_11_2 = -210.31        sca_11_2 = -210.31 _d 0
35        sca_11_3 =    6.1851        sca_11_3 =    6.1851 _d 0
36        sca_11_4 =   -0.075139        sca_11_4 =   -0.075139 _d 0
37  C coefficients for determining solubility of CFC12  C coefficients for determining solubility of CFC12
38        A1_11=  -229.9261        A1_11=  -229.9261 _d 0
39        A2_11=   319.6552        A2_11=   319.6552 _d 0
40        A3_11=   119.4471        A3_11=   119.4471 _d 0
41        A4_11=   -1.39165        A4_11=   -1.39165 _d 0
42        B1_11=   -0.142382        B1_11=   -0.142382 _d 0
43        B2_11=    0.091459        B2_11=    0.091459 _d 0
44        B3_11=   -0.0157274        B3_11=   -0.0157274 _d 0
45    
46  C set up coefficients for CFC12  C set up coefficients for CFC12
47  C define Schmidt no. coefficients for CFC12  C define Schmidt no. coefficients for CFC12
48        sca_12_1 = 3845.4        sca_12_1 = 3845.4 _d 0
49        sca_12_2 = -228.95        sca_12_2 = -228.95 _d 0
50        sca_12_3 =    6.1908        sca_12_3 =    6.1908 _d 0
51        sca_12_4 =   -0.067430        sca_12_4 =   -0.067430 _d 0
52  C coefficients for determining solubility of CFC12  C coefficients for determining solubility of CFC12
53        A1_12=  -218.0971        A1_12=  -218.0971 _d 0
54        A2_12=   298.9702        A2_12=   298.9702 _d 0
55        A3_12=   113.8049        A3_12=   113.8049 _d 0
56        A4_12=   -1.39165        A4_12=   -1.39165 _d 0
57        B1_12=   -0.143566        B1_12=   -0.143566 _d 0
58        B2_12=    0.091015        B2_12=    0.091015 _d 0
59        B3_12=   -0.0153924        B3_12=   -0.0153924 _d 0
60    
61  c        _END_MASTER( myThid )
 #endif  
62    
63    C--   Everyone else must wait for the parameters to be loaded
64          _BARRIER
65    
66    #endif /* ALLOW_CFC */
67    
68        RETURN        RETURN
69        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22