13 |
! Objet: moniteur général des tendances traceurs |
! Objet: moniteur général des tendances traceurs |
14 |
|
|
15 |
USE histwrite_m, ONLY : histwrite |
USE histwrite_m, ONLY : histwrite |
16 |
USE histcom, ONLY : histsync |
USE histsync_m, ONLY : histsync |
17 |
USE dimens_m, ONLY : iim, jjm, nqmx |
USE dimens_m, ONLY : iim, jjm, nqmx |
18 |
USE indicesol, ONLY : nbsrf |
USE indicesol, ONLY : nbsrf |
19 |
USE dimphy, ONLY : klev, klon |
USE dimphy, ONLY : klev, klon |
36 |
REAL pde_u(klon, klev) ! flux detraine dans le panache montant |
REAL pde_u(klon, klev) ! flux detraine dans le panache montant |
37 |
REAL pen_d(klon, klev) ! flux entraine dans le panache descendant |
REAL pen_d(klon, klev) ! flux entraine dans le panache descendant |
38 |
REAL pde_d(klon, klev) ! flux detraine dans le panache descendant |
REAL pde_d(klon, klev) ! flux detraine dans le panache descendant |
39 |
REAL pt(klon, klev) |
REAL, intent(in):: pt(klon, klev) |
40 |
|
|
41 |
REAL, INTENT (IN) :: rlon(klon), rlat(klon) |
REAL, INTENT (IN) :: rlon(klon), rlat(klon) |
42 |
REAL, INTENT (IN) :: dtime |
REAL, INTENT (IN) :: dtime |
48 |
! Couche limite: |
! Couche limite: |
49 |
|
|
50 |
REAL yv1(klon) |
REAL yv1(klon) |
51 |
REAL yu1(klon), pphis(klon), paire(klon) |
REAL yu1(klon), paire(klon) |
52 |
|
REAL, INTENT(IN):: pphis(klon) |
53 |
REAL pcoefh(klon, klev) ! coeff melange Couche limite |
REAL pcoefh(klon, klev) ! coeff melange Couche limite |
54 |
|
|
55 |
! Arguments necessaires pour les sources et puits de traceur |
! Arguments necessaires pour les sources et puits de traceur |