Commit 6470a473 authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

gridcheck: add verbose message and change CD ROM wait message

parent da396a28
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment