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

Contents of /MITgcm_contrib/jscott/igsm/inc/chem_para

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


Revision 1.1 - (show 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
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