Skip to content
GitLab
Menu
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
6470a473
Commit
6470a473
authored
Mar 01, 2015
by
Ignacio Pisso
Browse files
gridcheck: add verbose message and change CD ROM wait message
parent
da396a28
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/gridcheck.f90
View file @
6470a473
...
...
@@ -445,10 +445,10 @@ subroutine gridcheck
write
(
*
,
'(a,2i7)'
)
' Vertical levels in ECMWF data: '
,
&
nuvz
+1
,
nwz
write
(
*
,
*
)
write
(
*
,
'(a)'
)
' Mother domain:'
write
(
*
,
'(a,f10.5,a,f10.5,a,f10.5)'
)
' Longitude range: '
,
&
write
(
*
,
'(a)'
)
'
gridcheck>
Mother domain:'
write
(
*
,
'(a,f10.5,a,f10.5,a,f10.5)'
)
'
gridcheck>
Longitude range: '
,
&
xlon0
,
' to '
,
xlon0
+
(
nx
-1
)
*
dx
,
' Grid distance: '
,
dx
write
(
*
,
'(a,f10.5,a,f10.5,a,f10.5)'
)
' Latitude range : '
,
&
write
(
*
,
'(a,f10.5,a,f10.5,a,f10.5)'
)
'
gridcheck>
Latitude range : '
,
&
ylat0
,
' to '
,
ylat0
+
(
ny
-1
)
*
dy
,
' Grid distance: '
,
dy
write
(
*
,
*
)
...
...
@@ -544,17 +544,17 @@ subroutine gridcheck
write
(
*
,
*
)
' ###########################################'
//
&
'###### '
write
(
*
,
*
)
write
(
*
,
'(a)'
)
'!!! PLEASE INSERT A NEW CD-ROM AND !!!'
write
(
*
,
'(a)'
)
'!!! PRESS ANY KEY TO CONTINUE... !!!'
write
(
*
,
'(a)'
)
'!!! ...OR TERMINATE FLEXPART PRESSING!!!'
write
(
*
,
'(a)'
)
'!!! THE "X" KEY... !!!'
write
(
*
,
*
)
read
(
*
,
'(a)'
)
opt
if
(
opt
.eq.
'X'
)
then
!
write(*,'(a)') '!!! PLEASE INSERT A NEW CD-ROM AND !!!'
!
write(*,'(a)') '!!! PRESS ANY KEY TO CONTINUE... !!!'
!
write(*,'(a)') '!!! ...OR TERMINATE FLEXPART PRESSING!!!'
!
write(*,'(a)') '!!! THE "X" KEY... !!!'
!
write(*,*)
!
read(*,'(a)') opt
!
if(opt.eq.'X') then
stop
else
goto
5
endif
!
else
!
goto 5
!
endif
end
subroutine
gridcheck
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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