Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
flexpart
flexpart
Commits
d7aab4b6
Commit
d7aab4b6
authored
May 20, 2015
by
Sabine Eckhardt
Browse files
Write out a information on the location of the OH fields, in case they couldn't be opened
parent
d4ba5284
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/readOHfield.f90
View file @
d7aab4b6
...
...
@@ -71,6 +71,9 @@ subroutine readOHfield
thefile
=
trim
(
ohfields_path
)//
'OH_FIELDS/'
//
'geos-chem.OH.2005'
//
mm
//
'01.nc'
ierr
=
nf_open
(
trim
(
thefile
),
NF_NOWRITE
,
nid
)
if
(
ierr
.ne.
0
)
then
write
(
*
,
*
)
'The OH field at: '
//
thefile
//
' could not be opened'
write
(
*
,
*
)
'please copy the OH fields there, or change the path in the'
write
(
*
,
*
)
'COMMAND namelist!'
write
(
*
,
*
)
nf_strerror
(
ierr
)
stop
endif
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment