83 |
! 1. calcul de w |
! 1. calcul de w |
84 |
! 2. groupement des mailles pres du pole. |
! 2. groupement des mailles pres du pole. |
85 |
|
|
86 |
CALL groupe(massem, pbaruc, pbarvc, pbarug, pbarvg, wg) |
CALL groupe(pbaruc, pbarvc, pbarug, pbarvg, wg) |
87 |
|
|
88 |
! test sur l'eventuelle creation de valeurs negatives de la masse |
! test sur l'eventuelle creation de valeurs negatives de la masse |
89 |
DO l = 1, llm - 1 |
DO l = 1, llm - 1 |
105 |
|
|
106 |
! Advection proprement dite |
! Advection proprement dite |
107 |
|
|
108 |
! Calcul des moyennes basées sur la masse |
! Calcul des moyennes bas\'ees sur la masse |
109 |
CALL massbar(massem, massebx, masseby) |
CALL massbar(massem, massebx, masseby) |
110 |
|
|
111 |
! Appel des sous programmes d'advection |
! Appel des sous programmes d'advection |