Changeset 27 for trunk/src/gridcheck.f90
- Timestamp:
- Jul 3, 2014, 2:55:50 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/src/gridcheck.f90
r24 r27 443 443 !******************** 444 444 445 write(*,*) 446 write(*,*) 447 write(*,'(a,2i7)') '# of vertical levels in ECMWF data: ', & 445 write(*,'(a,2i7)') ' Vertical levels in ECMWF data: ', & 448 446 nuvz+1,nwz 449 447 write(*,*) 450 write(*,'(a)') ' Mother domain:'448 write(*,'(a)') ' Mother domain:' 451 449 write(*,'(a,f10.5,a,f10.5,a,f10.5)') ' Longitude range: ', & 452 450 xlon0,' to ',xlon0+(nx-1)*dx,' Grid distance: ',dx 453 write(*,'(a,f10.5,a,f10.5,a,f10.5)') ' Latitude range : ', &451 write(*,'(a,f10.5,a,f10.5,a,f10.5)') ' Latitude range : ', & 454 452 ylat0,' to ',ylat0+(ny-1)*dy,' Grid distance: ',dy 455 453 write(*,*)
Note: See TracChangeset
for help on using the changeset viewer.