/[MITgcm]/MITgcm_contrib/jscott/igsm/inc/chem_para
ViewVC logotype

Annotation of /MITgcm_contrib/jscott/igsm/inc/chem_para

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


Revision 1.1 - (hide annotations) (download)
Fri Aug 11 19:33:31 2006 UTC (18 years, 11 months ago) by jscott
Branch: MAIN
CVS Tags: HEAD
atm2d package

1 jscott 1.1
2     ! ============================================================
3     !
4     ! CHEM_PARA: An parametr file including PARAMETERs for
5     ! the MIT Global Chemistry Model
6     !
7     ! For version higher or equal to 2.04
8     ! ------------------------------------------------------------
9     ! Author: Chien Wang
10     ! MIT Joint Program on Science and Policy
11     ! of Global Change
12     !
13     ! Revision History:
14     !
15     ! When Who What
16     ! ---- ---------- -------
17     ! 061099 Chien Wang
18     ! 112800 Chien Wang meta_nvar from 58 to 65
19     ! 121800 Chien Wang nchemyr & rearranging
20     ! 051804 Chien Wang rearranging
21     !
22     ! ============================================================
23    
24    
25     ! === Brief descriptions of parameters:
26     !
27     ! nlon: No. of zonal grid points
28     ! nlat: No. of meridional grid points
29     ! nlev: No. of vertical levels
30     ! dthour: Number of seconds of one hour
31     ! dtmin: Number of seconds of one minute
32     !
33     integer, parameter :: nlon = 1
34     integer, parameter :: nlat = N_LAT
35     integer, parameter :: nlev = N_LEV
36     integer, parameter :: nlon1= nlon-1
37     integer, parameter :: nlat1= nlat-1
38     integer, parameter :: nlev1= nlev-1
39     integer, parameter :: nlon2= nlon-2
40     integer, parameter :: nlat2= nlat-2
41     integer, parameter :: nlev2= nlev-2
42     #if ( N_LEV == 9 )
43     integer, parameter :: n_tropopause = nlev-2
44     #endif
45     #if ( N_LEV == 11 )
46     integer, parameter :: n_tropopause = nlev-4
47     #endif
48     integer, parameter :: n2dh = nlon*nlat
49     integer, parameter :: n2dv = nlat*nlev
50     integer, parameter :: n3d = n2dh*nlev
51     integer, parameter :: nchemyr = NYR_CHEM
52     real, parameter :: dthour = 3600.0
53     real, parameter :: dtmin = 60.0
54    
55    
56     ! === Brief descriptions of parameters:
57     !
58     ! nreaction: Number of reactions involved in the model
59     !
60     ! nvaria: Number of variables involved in photochemistry
61     !
62     integer, parameter :: nract = 100
63     integer, parameter :: nvaria= 15
64    
65    
66     ! === Brief descriptions of parameters:
67     !
68     ! dx_df11: Mass conversion in radiative forcing of
69     ! species x
70     !
71     real, parameter :: dhfc134a_df11 = 1.04
72     real, parameter :: dhfc143a_df11 = 1.03
73     real, parameter :: dpfmethane_df11 = 0.69
74     real, parameter :: dpfethane_df11 = 1.36
75     real, parameter :: dsf6_df11 = 2.75
76    
77     ! === Brief descriptions of parameters:
78     !
79     ! meta_nvar: Variable number for the meta model
80     !
81     integer, parameter :: meta_nvar = 58 !65

  ViewVC Help
Powered by ViewVC 1.1.22