From 6470a473fbfddbb6309750e0e18693000f2acefb Mon Sep 17 00:00:00 2001
From: Ignacio Pisso <Ignacio.Pisso@nilu.no>
Date: Sun, 1 Mar 2015 17:11:54 +0100
Subject: [PATCH] gridcheck: add verbose message and change CD ROM wait message
---
src/gridcheck.f90 | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/src/gridcheck.f90 b/src/gridcheck.f90
index 32b11fe0..5ce565e9 100755
--- a/src/gridcheck.f90
+++ b/src/gridcheck.f90
@@ -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
--
GitLab