Changeset 72d3a5a in flexpart.git for src/verttransform_nests.f90


Ignore:
Timestamp:
May 31, 2017, 10:11:57 AM (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:
e52967c
Parents:
6d420c3
Message:

Bugfix in verttransform (call to function ew)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/verttransform_nests.f90

    r341f4b7 r72d3a5a  
    5656!  the actual field dimensions
    5757!*****************************************************************************
     58! Date: 2017-05-30 modification of a bug in ew. Don Morton (CTBTO project)   *
     59!*****************************************************************************
    5860!                                                                            *
    5961! Variables:                                                                 *
     
    107109    do jy=0,nyn(l)-1
    108110      do ix=0,nxn(l)-1
    109         tvold(ix,jy)=tt2n(ix,jy,1,n,l)*(1.+0.378*ew*(td2n(ix,jy,1,n,l))/ &
     111        tvold(ix,jy)=tt2n(ix,jy,1,n,l)*(1.+0.378*ew(td2n(ix,jy,1,n,l))/ &
    110112             psn(ix,jy,1,n,l))
    111113      end do
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG