source: LMDZ.3.3/trunk/libf/dyn3d/flumass3d.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.3 KB
Line 
1      SUBROUTINE flumass3d(ucont,vcont,pext,pbaru,pbarv,w,dp)
2c%W%    %G%
3c=======================================================================
4c
5c   Author:    Frederic Hourdin      original: 17/02/93
6c   -------
7c
8c   Subject:
9c   ------
10c   calcul du flux de masse dans les trois directions
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
30#include "dimensions.h"
31#include "paramet.h"
32#include "comconst.h"
33#include "comvert.h"
34#include "comgeom.h"
35
36c   Arguments:
37c   ----------
38
39
40      REAL pext(ip1jmp1)
41      REAL vcont(ip1jm,llm),ucont(ip1jmp1,llm)
42      REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm)
43      REAL dp(ip1jmp1)
44      REAL w(ip1jmp1,llm)
45
46c   Local:
47c   ------
48
49      REAL pbarx(ip1jmp1),pbary(ip1jm),pbarxy(ip1jm)
50      REAL convm(ip1jmp1,llm)
51
52c-----------------------------------------------------------------------
53
54      CALL pbar(pext,pbarx,pbary,pbarxy)
55      CALL flumass(pbarx,pbary,vcont,ucont,pbaru,pbarv)
56      CALL convmas(pbaru,pbarv,convm)
57      CALL SCOPY(ip1jmp1,convm,1,dp,1)
58      CALL vitvert(convm,w)
59
60      RETURN
61      END
Note: See TracBrowser for help on using the repository browser.