source: LMDZ.3.3/branches/rel-1-0-patch/libf/dyn3d/gr_v_scal.F @ 976

Last change on this file since 976 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.2 KB
Line 
1      SUBROUTINE gr_v_scal(nx,x_v,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_v(ip1jm,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=iip2,ip1jm
48            x_scal(ij,l)=
49     s      (airev(ij-iip1)*x_v(ij-iip1,l)+airev(ij)*x_v(ij,l))
50     s      /(airev(ij-iip1)+airev(ij))
51         ENDDO
52         DO ij=1,iip1
53            x_scal(ij,l)=0.
54         ENDDO
55         DO ij=ip1jm+1,ip1jmp1
56            x_scal(ij,l)=0.
57         ENDDO
58      ENDDO
59
60      RETURN
61      END
Note: See TracBrowser for help on using the repository browser.