8 |
|
|
9 |
! Author: F. Hourdin |
! Author: F. Hourdin |
10 |
|
|
11 |
|
USE comgeom, ONLY: aire |
12 |
|
USE dimens_m, ONLY: jjm, llm |
13 |
|
use groupe_m, only: groupe |
14 |
USE histwrite_m, ONLY: histwrite |
USE histwrite_m, ONLY: histwrite |
15 |
use initfluxsto_m, only: initfluxsto |
use initfluxsto_m, only: initfluxsto |
|
USE dimens_m, ONLY: jjm, llm |
|
16 |
USE paramet_m, ONLY: iip1, ijmllm, ijp1llm, ip1jm, ip1jmp1 |
USE paramet_m, ONLY: iip1, ijmllm, ijp1llm, ip1jm, ip1jmp1 |
|
USE comgeom, ONLY: aire |
|
17 |
USE tracstoke, ONLY: istdyn, istphy |
USE tracstoke, ONLY: istdyn, istphy |
18 |
|
|
19 |
REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
88 |
! Traitement des flux de masse avant advection. |
! Traitement des flux de masse avant advection. |
89 |
! 1. Calcul de w |
! 1. Calcul de w |
90 |
! 2. Groupement des mailles pr\`es du p\^ole. |
! 2. Groupement des mailles pr\`es du p\^ole. |
|
|
|
91 |
CALL groupe(pbaruc, pbarvc, pbarug, pbarvg, wg) |
CALL groupe(pbaruc, pbarvc, pbarug, pbarvg, wg) |
92 |
|
|
93 |
CALL histwrite(fluxid, 'masse', itau, massem) |
CALL histwrite(fluxid, 'masse', itau, massem) |