1 |
SUBROUTINE caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, & |
SUBROUTINE caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, & |
2 |
conser, du, dv, dteta, dp, w, pbaru, pbarv, time) |
conser, du, dv, dteta, dp, w, pbaru, pbarv, time_0) |
3 |
|
|
4 |
! From dyn3d/caldyn.F, v 1.1.1.1 2004/05/19 12:53:06 |
! From dyn3d/caldyn.F, v 1.1.1.1 2004/05/19 12:53:06 |
5 |
! Auteur : P. Le Van |
! Auteur : P. Le Van |
6 |
! Objet: |
! Objet: |
7 |
! Calcul des tendances dynamiques. |
! Calcul des tendances dynamiques. |
8 |
|
|
9 |
USE dimens_m |
USE dimens_m, ONLY : iim, llm |
10 |
USE paramet_m |
USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1 |
11 |
USE comconst |
USE comvert, ONLY : ap, bp |
12 |
USE comvert |
USE comgeom, ONLY : airesurg, constang |
|
USE comgeom |
|
13 |
USE pression_m, ONLY : pression |
USE pression_m, ONLY : pression |
14 |
|
use sortvarc_m, only: sortvarc |
15 |
|
|
16 |
IMPLICIT NONE |
IMPLICIT NONE |
17 |
|
|
28 |
REAL dv(ip1jm, llm), du(ip1jmp1, llm) |
REAL dv(ip1jm, llm), du(ip1jmp1, llm) |
29 |
REAL dteta(ip1jmp1, llm), dp(ip1jmp1) |
REAL dteta(ip1jmp1, llm), dp(ip1jmp1) |
30 |
REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
31 |
REAL time |
REAL, intent(in):: time_0 |
32 |
|
|
33 |
! Local: |
! Local: |
34 |
|
|
87 |
|
|
88 |
! Sorties eventuelles des variables de controle: |
! Sorties eventuelles des variables de controle: |
89 |
IF (conser) CALL sortvarc(itau, ucov, teta, ps, masse, pk, phis, vorpot, & |
IF (conser) CALL sortvarc(itau, ucov, teta, ps, masse, pk, phis, vorpot, & |
90 |
phi, bern, dp, time) |
phi, bern, dp, time_0) |
91 |
|
|
92 |
END SUBROUTINE caldyn |
END SUBROUTINE caldyn |