source: LMDZ.3.3/trunk/libf/dyn3d/add_tend.F @ 346

Last change on this file since 346 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 856 bytes
Line 
1      SUBROUTINE add_tend(n,dt,dx,xi,xf)
2c%W%    %G%
3c=======================================================================
4c
5c   Author:    Frederic Hourdin      original: 17/02/93
6c   -------
7c
8c   Subject:
9c   ------
10c   Ajout d'une tendance. OUAOUH!
11c
12c   Method:
13c   --------
14c
15c   Interface:
16c   ----------
17c
18c      Input:
19c      ------
20c
21c      Output:
22c      -------
23c
24c=======================================================================
25      IMPLICIT NONE
26c-----------------------------------------------------------------------
27c   Declararations:
28c   ---------------
29
30c   Arguments:
31c   ----------
32      INTEGER n
33      REAL xi(n),dx(n),dt,xf(n)
34
35c   Local:
36c   ------
37      INTEGER i
38
39c-----------------------------------------------------------------------
40
41      DO i=1,n
42         xf(i)=xi(i)+dt*dx(i)
43      ENDDO
44
45      RETURN
46      END
Note: See TracBrowser for help on using the repository browser.