source: LMDZ.3.3/trunk/libf/dyn3d/reduce_i.F @ 507

Last change on this file since 507 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: 855 bytes
Line 
1      SUBROUTINE reduce_i(ni,nj,x,x_r)
2c%W%    %G%
3c=======================================================================
4c
5c   Author:    Frederic Hourdin      original: 14/02/93
6c   -------
7c
8c   Subject:
9c   ------
10c
11c   Method:
12c   --------
13c
14c   Interface:
15c   ----------
16c
17c      Input:
18c      ------
19c
20c      Output:
21c      -------
22c
23c=======================================================================
24      IMPLICIT NONE
25c-----------------------------------------------------------------------
26c   Declararations:
27c   ---------------
28
29c   Arguments:
30c   ----------
31
32      INTEGER ni,nj
33      REAL x(ni+1,nj),x_r(ni,nj)
34
35c   Local:
36c   ------
37
38      INTEGER j
39      EXTERNAL SCOPY
40
41c-----------------------------------------------------------------------
42
43      DO j=1,nj
44         CALL SCOPY(ni,x(1,j),1,x_r(1,j),1)
45      ENDDO
46      RETURN
47      END
Note: See TracBrowser for help on using the repository browser.