source:
LMDZ.3.3/tags/IPSL-CM4_v2x0/libf/dyn3d/addit.F
Last change on this file was 2, checked in by , 25 years ago | |
---|---|
|
|
File size: 196 bytes |
Line | |
---|---|
1 | SUBROUTINE addit(np,px,py,pz) |
2 | IMPLICIT NONE |
3 | |
4 | INTEGER np |
5 | REAL px(np),py(np),pz(np) |
6 | |
7 | INTEGER i |
8 | |
9 | DO i=1,np |
10 | pz(i)=px(i)+py(i) |
11 | ENDDO |
12 | |
13 | RETURN |
14 | END |
Note: See TracBrowser
for help on using the repository browser.