1 |
SUBROUTINE groupe(pext, pbaru, pbarv, pbarum, pbarvm, wm) |
SUBROUTINE groupe(pbaru, pbarv, pbarum, pbarvm, wm) |
2 |
|
|
3 |
! From dyn3d/groupe.F, v 1.1.1.1 2004/05/19 12:53:06 |
! From dyn3d/groupe.F, v 1.1.1.1 2004/05/19 12:53:06 |
4 |
|
|
6 |
! poles en "regroupant" les mailles 2 par 2 puis 4 par 4 etc. au fur |
! poles en "regroupant" les mailles 2 par 2 puis 4 par 4 etc. au fur |
7 |
! et a mesure qu'on se rapproche du pole. |
! et a mesure qu'on se rapproche du pole. |
8 |
|
|
9 |
! en entree: pext, pbaru et pbarv |
! en entree: pbaru et pbarv |
10 |
! en sortie: pbarum, pbarvm et wm. |
! en sortie: pbarum, pbarvm et wm. |
11 |
|
|
12 |
! remarque, le wm est recalcule a partir des pbaru pbarv et on n'a |
! remarque, le wm est recalcule a partir des pbaru pbarv et on n'a |
15 |
USE dimens_m |
USE dimens_m |
16 |
USE paramet_m |
USE paramet_m |
17 |
USE comconst |
USE comconst |
18 |
USE comvert |
USE disvert_m |
19 |
USE comgeom |
USE comgeom |
20 |
|
use vitvert_m, only: vitvert |
21 |
|
|
22 |
IMPLICIT NONE |
IMPLICIT NONE |
23 |
|
|
24 |
INTEGER, PARAMETER:: ngroup = 3 |
INTEGER, PARAMETER:: ngroup = 3 |
25 |
|
|
26 |
REAL pbaru(iip1, jjp1, llm), pbarv(iip1, jjm, llm) |
REAL pbaru(iip1, jjp1, llm), pbarv(iip1, jjm, llm) |
|
REAL pext(iip1, jjp1, llm) |
|
|
|
|
27 |
REAL, intent(out):: pbarum(iip1, jjp1, llm) |
REAL, intent(out):: pbarum(iip1, jjp1, llm) |
28 |
real pbarvm(iip1, jjm, llm) |
real pbarvm(iip1, jjm, llm) |
29 |
REAL wm(iip1, jjp1, llm) |
REAL wm(iip1, jjp1, llm) |