Changeset 6470a47 in flexpart.git


Ignore:
Timestamp:
Mar 1, 2015, 4:26:39 PM (9 years ago)
Author:
Ignacio Pisso <Ignacio.Pisso@…>
Branches:
master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, bugfixes+enhancements, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, release-10, release-10.4.1, scaling-bug, univie
Children:
414a5e5
Parents:
da396a2
git-author:
Ignacio Pisso <Ignacio.Pisso@…> (03/01/15 16:11:54)
git-committer:
Ignacio Pisso <Ignacio.Pisso@…> (03/01/15 16:26:39)
Message:

gridcheck: add verbose message and change CD ROM wait message

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/gridcheck.f90

    rb4d29ce r6470a47  
    446446       nuvz+1,nwz
    447447  write(*,*)
    448   write(*,'(a)') ' Mother domain:'
    449   write(*,'(a,f10.5,a,f10.5,a,f10.5)') '  Longitude range: ', &
     448  write(*,'(a)') 'gridcheck> Mother domain:'
     449  write(*,'(a,f10.5,a,f10.5,a,f10.5)') 'gridcheck>  Longitude range: ', &
    450450       xlon0,' to ',xlon0+(nx-1)*dx,'   Grid distance: ',dx
    451   write(*,'(a,f10.5,a,f10.5,a,f10.5)') '  Latitude range : ', &
     451  write(*,'(a,f10.5,a,f10.5,a,f10.5)') 'gridcheck>  Latitude range : ', &
    452452       ylat0,' to ',ylat0+(ny-1)*dy,'   Grid distance: ',dy
    453453  write(*,*)
     
    545545       '###### '
    546546  write(*,*)
    547   write(*,'(a)') '!!! PLEASE INSERT A NEW CD-ROM AND   !!!'
    548   write(*,'(a)') '!!! PRESS ANY KEY TO CONTINUE...     !!!'
    549   write(*,'(a)') '!!! ...OR TERMINATE FLEXPART PRESSING!!!'
    550   write(*,'(a)') '!!! THE "X" KEY...                   !!!'
    551   write(*,*)
    552   read(*,'(a)') opt
    553   if(opt.eq.'X') then
     547  !write(*,'(a)') '!!! PLEASE INSERT A NEW CD-ROM AND   !!!'
     548  !write(*,'(a)') '!!! PRESS ANY KEY TO CONTINUE...     !!!'
     549  !write(*,'(a)') '!!! ...OR TERMINATE FLEXPART PRESSING!!!'
     550  !write(*,'(a)') '!!! THE "X" KEY...                   !!!'
     551  !write(*,*)
     552  !read(*,'(a)') opt
     553  !if(opt.eq.'X') then
    554554    stop
    555   else
    556     goto 5
    557   endif
     555  !else
     556  !  goto 5
     557  !endif
    558558
    559559end subroutine gridcheck
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG