Changeset 72d3a5a in flexpart.git for src/verttransform_nests.f90
- Timestamp:
- May 31, 2017, 10:11:57 AM (7 years ago)
- Branches:
- master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie
- Children:
- e52967c
- Parents:
- 6d420c3
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/verttransform_nests.f90
r341f4b7 r72d3a5a 56 56 ! the actual field dimensions 57 57 !***************************************************************************** 58 ! Date: 2017-05-30 modification of a bug in ew. Don Morton (CTBTO project) * 59 !***************************************************************************** 58 60 ! * 59 61 ! Variables: * … … 107 109 do jy=0,nyn(l)-1 108 110 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))/ & 110 112 psn(ix,jy,1,n,l)) 111 113 end do
Note: See TracChangeset
for help on using the changeset viewer.