-
Notifications
You must be signed in to change notification settings - Fork 0
/
Io_Nums_mod.f90
89 lines (81 loc) · 3.63 KB
/
Io_Nums_mod.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
! <Io_Nums_mod.f90 - A component of the EMEP MSC-W Unified Eulerian
! Chemical transport Model>
!*****************************************************************************!
!*
!* Copyright (C) 2007-2012 met.no
!*
!* Contact information:
!* Norwegian Meteorological Institute
!* Box 43 Blindern
!* 0313 OSLO
!* NORWAY
!* email: emep.mscw@met.no
!* http://www.emep.int
!*
!* This program is free software: you can redistribute it and/or modify
!* it under the terms of the GNU General Public License as published by
!* the Free Software Foundation, either version 3 of the License, or
!* (at your option) any later version.
!*
!* This program is distributed in the hope that it will be useful,
!* but WITHOUT ANY WARRANTY; without even the implied warranty of
!* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
!* GNU General Public License for more details.
!*
!* You should have received a copy of the GNU General Public License
!* along with this program. If not, see <http://www.gnu.org/licenses/>.
!*****************************************************************************!
module Io_Nums_mod
!_____________________________________________________________________________
! The idea is to keep all unit numbers used for input and output
! stored here. So that programmers can quickly see which numbers are
! in use or not. (Warning - some of the routines mentioned are outdated)
!
! Assign unit number, e.g. io_xxx, here, and use read(io_xxx,*) in
! main program.
!
! (c) - file opened AND closed in subroutine
! (o) - file remains open in subroutine
!_____________________________________________________________________________
implicit none
integer, parameter, public :: &
IO_LOG = 7 &! General output log (o)
,IO_SITES = 8 &! sites module, first for input(c)
,IO_MYTIM = 20 &! emepctm.f90(c)-output mytim.out
,IO_RES = 25 &! o3mod,massbud(o)
,IO_DEBUG = 26 &! keep open, use where needed
,IO_TMP = 27 &! General IO number (files *must* be type (c))
,IO_NML = 28 ! For namelist file (o)
integer, parameter, public :: &
IO_SONDES = 30 &! siteswrt_mod(o) for output of sonde data
,IO_WRTCHEM = 118 &! Used in Wrtchem (c) for AOT and BCs
,IO_HOURLY = 119 &! hourly_out(o)
,IO_SPOD = 120 ! Used in DryDep (c) for ozone-flux
! ****************** !
! CAREFUL. Code uses IO_SPOD + me, so potentally 120..very high IO num
! ****************** !
!(some subroutine names are a bit outdated:)
integer, parameter, public :: &
IO_FORES = 49 &! rforest.f(c)-read land use %
,IO_AIRN = 49 &! airnox.f(c) - read aircr. em.
,IO_LIGHT = 49 &! lightning.f(c) - read lightning. emiss.
,IO_JOST = 49 &! newjostinit(c) - read global mixing ratios
,IO_GLOBBC = 49 &! read global mixing ratios e.g. Logan
,IO_GLOBBC2 = 91 &! read global mixing ratios e.g. h2o2
,IO_DO3SE = 51 &! for DO3SE inputs(c)
,IO_ROUGH = 52 &! inpar.f -reads roughn. class for landsea masl
,IO_VOLC = 54 &
,IO_DJ = 55 &! readdiss.f(c) - inp. solar r.
,IO_AIRCR = 66 &! phyche.f(c) - write aircraft conc.
,IO_OUT = 80 &! (c)write outday etc.
,IO_UKDEP = 81 &! (o)write fluxes, etc.
,IO_STAB = 82 &! (o)write fluxes, etc.
,IO_EMIS = 84 &! Used for femis , emis_split(c)
,IO_TIMEFACS = 85 &! Used for monthly
,IO_NEST = 88 &!
,IO_DMS = 90 &! Emissions(c): for DMS
,IO_NH3 = 92 &! hb NH3emis
,IO_CLAY = 92 &! clay
,IO_SAND = 93 &! sand
,IO_NH3_DEB = 99 ! hb NH3emis
end module Io_Nums_mod