Changeset 6ecb30a in flexpart.git for src/verttransform_ecmwf.f90


Ignore:
Timestamp:
Aug 17, 2017, 4:39:17 PM (3 years ago)
Author:
Espen Sollum ATMOS <eso@…>
Branches:
master, dev, release-10, univie
Children:
5b34509
Parents:
61e07ba
Message:

Merged changes from CTBTO project

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/verttransform_ecmwf.f90

    r61e07ba r6ecb30a  
    144144
    145145
    146     tvold(ixm,jym)=tt2(ixm,jym,1,n)*(1.+0.378*ew*(td2(ixm,jym,1,n))/ &
     146    tvold(ixm,jym)=tt2(ixm,jym,1,n)*(1.+0.378*ew(td2(ixm,jym,1,n))/ &
    147147         ps(ixm,jym,1,n))
    148148    pold(ixm,jym)=ps(ixm,jym,1,n)
     
    194194  do jy=0,nymin1
    195195    do ix=0,nxmin1
    196       tvold(ix,jy)=tt2(ix,jy,1,n)*(1.+0.378*ew*(td2(ix,jy,1,n))/ &
     196      tvold(ix,jy)=tt2(ix,jy,1,n)*(1.+0.378*ew(td2(ix,jy,1,n))/ &
    197197           ps(ix,jy,1,n))
    198198    enddo
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG