source: LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/gr_v_scal.F @ 1322

Last change on this file since 1322 was 1022, checked in by lsce, 16 years ago

Fichier non nécessaire dans la version parallèle, uniquemement présent pour satisfaire les dépendances lors de l'édition de lien
YM

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1!
2! $Header$
3!
4      SUBROUTINE gr_v_scal(nx,x_v,x_scal)
5c%W%    %G%
6c=======================================================================
7c
8c   Author:    Frederic Hourdin      original: 11/11/92
9c   -------
10c
11c   Subject:
12c   ------
13c
14c   Method:
15c   --------
16c
17c   Interface:
18c   ----------
19c
20c      Input:
21c      ------
22c
23c      Output:
24c      -------
25c
26c=======================================================================
27      IMPLICIT NONE
28c-----------------------------------------------------------------------
29c   Declararations:
30c   ---------------
31
32#include "dimensions.h"
33#include "paramet.h"
34#include "comgeom.h"
35
36c   Arguments:
37c   ----------
38
39      INTEGER nx
40      REAL x_v(ip1jm,nx),x_scal(ip1jmp1,nx)
41
42c   Local:
43c   ------
44
45      INTEGER l,ij
46
47c-----------------------------------------------------------------------
48
49      DO l=1,nx
50         DO ij=iip2,ip1jm
51            x_scal(ij,l)=
52     s      (airev(ij-iip1)*x_v(ij-iip1,l)+airev(ij)*x_v(ij,l))
53     s      /(airev(ij-iip1)+airev(ij))
54         ENDDO
55         DO ij=1,iip1
56            x_scal(ij,l)=0.
57         ENDDO
58         DO ij=ip1jm+1,ip1jmp1
59            x_scal(ij,l)=0.
60         ENDDO
61      ENDDO
62
63      RETURN
64      END
Note: See TracBrowser for help on using the repository browser.