Changeset 1821 for trunk/LMDZ.TITAN/utilities
- Timestamp:
- Nov 15, 2017, 4:58:59 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/utilities/streamfunction.F90
r1514 r1821 561 561 do ilon=1,lonlength 562 562 vcontcum(ilat,ialt)=vcontcum(ilat,ialt)+vcont(ilon,ilat,ialt)/lonlength 563 psi(ilat,ialt)=psi(ilat,ialt) -(vcont(ilon,ilat,ialt)&563 psi(ilat,ialt)=psi(ilat,ialt)+(vcont(ilon,ilat,ialt)& 564 564 *(dmass(ilon,ilat,ialt)+dmass(ilon,ilat+1,ialt))) 565 565 enddo
Note: See TracChangeset
for help on using the changeset viewer.