Changes between Initial Version and Version 1 of Ticket #197
- Timestamp:
- Jun 7, 2018, 9:27:22 AM (6 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
Ticket #197 – Description
initial v1 8 8 ... 9 9 tvold(ixm,jym)=tt2(ixm,jym,1,n)*(1.+0.378*ew*(td2(ixm,jym,1,n))/ & 10 ps(ixm,jym,1,n)) 10 ps(ixm,jym,1,n)) 11 ... 12 tvold(ix,jy)=tt2(ix,jy,1,n)*(1.+0.378*ew(td2(ix,jy,1,n))/ & 13 ps(ix,jy,1,n)) 11 14 }}} 12 15 … … 16 19 ... 17 20 tvold=tt2(ixm,jym,1,n)*(1.+0.378*ew(td2(ixm,jym,1,n))/ & 18 ps(ixm,jym,1,n))21 ps(ixm,jym,1,n)) 19 22 }}} 20 23 … … 23 26 real :: ew,dz1,dz2,dz 24 27 ... 25 tvold =tt2(ixm,jym,1,n)*(1.+0.378*ew(td2(ixm,jym,1,n))/ &26 ps(ixm,jym,1,n))28 tvold(ix,jy)=tt2n(ix,jy,1,n,l)*(1.+0.378*ew*(td2n(ix,jy,1,n,l))/ & 29 psn(ix,jy,1,n,l)) 27 30 }}} 28 31