Changeset 4c64400 in flexpart.git for src/gridcheck_gfs.f90


Ignore:
Timestamp:
Nov 8, 2016, 4:42:27 PM (7 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
Children:
c8fc724
Parents:
16b61a5
Message:

Bugfix for double precision dry deposition calculation. Added (hardcoded) option to not use output kernel. Version/date string updated.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/gridcheck_gfs.f90

    r5f9d14a r4c64400  
    421421  !********************
    422422
    423   write(*,*)
    424   write(*,*)
    425   write(*,'(a,2i7)') 'Vertical levels in NCEP data: ', &
    426        nuvz,nwz
    427   write(*,*)
    428   write(*,'(a)') 'Mother domain:'
    429   write(*,'(a,f10.2,a1,f10.2,a,f10.2)') '  Longitude range: ', &
    430        xlon0,' to ',xlon0+(nx-1)*dx,'   Grid distance: ',dx
    431   write(*,'(a,f10.2,a1,f10.2,a,f10.2)') '  Latitude range : ', &
    432        ylat0,' to ',ylat0+(ny-1)*dy,'   Grid distance: ',dy
    433   write(*,*)
    434 
     423  if (lroot) then
     424    write(*,*)
     425    write(*,*)
     426    write(*,'(a,2i7)') 'Vertical levels in NCEP data: ', &
     427         nuvz,nwz
     428    write(*,*)
     429    write(*,'(a)') 'Mother domain:'
     430    write(*,'(a,f10.2,a1,f10.2,a,f10.2)') '  Longitude range: ', &
     431         xlon0,' to ',xlon0+(nx-1)*dx,'   Grid distance: ',dx
     432    write(*,'(a,f10.2,a1,f10.2,a,f10.2)') '  Latitude range : ', &
     433         ylat0,' to ',ylat0+(ny-1)*dy,'   Grid distance: ',dy
     434    write(*,*)
     435  end if
    435436
    436437  ! CALCULATE VERTICAL DISCRETIZATION OF ECMWF MODEL
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG