source: trunk/LMDZ.PLUTO.old/libf/dyn3d/addit.F @ 3542

Last change on this file since 3542 was 3175, checked in by emillour, 2 years ago

Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
File size: 196 bytes
RevLine 
[3175]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.