Changeset 6470a47 in flexpart.git
- Timestamp:
- Mar 1, 2015, 4:26:39 PM (9 years ago)
- 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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/gridcheck.f90
rb4d29ce r6470a47 446 446 nuvz+1,nwz 447 447 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: ', & 450 450 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 : ', & 452 452 ylat0,' to ',ylat0+(ny-1)*dy,' Grid distance: ',dy 453 453 write(*,*) … … 545 545 '###### ' 546 546 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)') opt553 if(opt.eq.'X') then547 !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 554 554 stop 555 else556 goto 5557 endif555 !else 556 ! goto 5 557 !endif 558 558 559 559 end subroutine gridcheck
Note: See TracChangeset
for help on using the changeset viewer.