- 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
- Location:
- src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
src/verttransform.f90
r6481010 r72d3a5a 50 50 ! added the variable cloud for use with scavenging - descr. in com_mod 51 51 !***************************************************************************** 52 ! Date: 2017-05-30 modification of a bug in ew. Don Morton (CTBTO project) * 53 !***************************************************************************** 52 54 ! * 53 55 ! Variables: * … … 155 157 156 158 157 tvold(ixm,jym)=tt2(ixm,jym,1,n)*(1.+0.378*ew *(td2(ixm,jym,1,n))/ &159 tvold(ixm,jym)=tt2(ixm,jym,1,n)*(1.+0.378*ew(td2(ixm,jym,1,n))/ & 158 160 ps(ixm,jym,1,n)) 159 161 pold(ixm,jym)=ps(ixm,jym,1,n) … … 215 217 do jy=0,nymin1 216 218 do ix=0,nxmin1 217 tvold(ix,jy)=tt2(ix,jy,1,n)*(1.+0.378*ew *(td2(ix,jy,1,n))/ &219 tvold(ix,jy)=tt2(ix,jy,1,n)*(1.+0.378*ew(td2(ix,jy,1,n))/ & 218 220 ps(ix,jy,1,n)) 219 221 enddo -
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.