| 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 |
| 17 |
USE comconst |
USE comconst |
| 18 |
USE disvert_m |
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) |
Parent Directory
| 
Revision Log
| 
Patch