Changeset fb0d416 in flexpart.git for src/gethourlyOH.f90


Ignore:
Timestamp:
Apr 20, 2015, 10:35:26 AM (9 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:
5f42c27
Parents:
b5d0e7e
Message:

OH change suggested by Xuekun

File:
1 edited

Legend:

Unmodified
Added
Removed

  • src/gethourlyOH.f90

    r5f9d14a rfb0d416  
    120120    memOHtime(1)=0.
    121121
    122     jul2=bdate+real(1./24.,kind=dp)  ! date for next hour
     122    jul2=bdate+ldirect*real(1./24.,kind=dp)  ! date for next hour
    123123    call caldate(jul2,jjjjmmdd,hhmmss)
    124124    m2=(jjjjmmdd-(jjjjmmdd/10000)*10000)/100
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG