source: LMDZ.3.3/trunk/libf/dyn3d/gr_u_scal.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: 1.1 KB
Line 
1      SUBROUTINE gr_u_scal(nx,x_u,x_scal)
2c%W%    %G%
3c=======================================================================
4c
5c   Author:    Frederic Hourdin      original: 11/11/92
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
29#include "dimensions.h"
30#include "paramet.h"
31#include "comgeom.h"
32
33c   Arguments:
34c   ----------
35
36      INTEGER nx
37      REAL x_u(ip1jmp1,nx),x_scal(ip1jmp1,nx)
38
39c   Local:
40c   ------
41
42      INTEGER l,ij
43
44c-----------------------------------------------------------------------
45
46      DO l=1,nx
47         DO ij=ip1jmp1,2,-1
48            x_scal(ij,l)=
49     s      (aireu(ij)*x_u(ij,l)+aireu(ij-1)*x_u(ij-1,l))
50     s      /(aireu(ij)+aireu(ij-1))
51         ENDDO
52      ENDDO
53
54      CALL SCOPY(nx*jjp1,x_scal(iip1,1),iip1,x_scal(1,1),iip1)
55
56      RETURN
57      END
Note: See TracBrowser for help on using the repository browser.