2 |
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/nflxtr.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $ |
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/nflxtr.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $ |
3 |
! |
! |
4 |
SUBROUTINE nflxtr(pdtime,pmfu,pmfd,pen_u,pde_u,pen_d,pde_d, |
SUBROUTINE nflxtr(pdtime,pmfu,pmfd,pen_u,pde_u,pen_d,pde_d, |
5 |
. pplay,paprs,x,dx) |
. paprs,x,dx) |
6 |
use dimens_m |
use dimens_m |
7 |
use dimphy |
use dimphy |
8 |
use YOMCST |
use SUPHEC_M |
9 |
|
use yoecumf |
10 |
IMPLICIT NONE |
IMPLICIT NONE |
11 |
c===================================================================== |
c===================================================================== |
12 |
c Objet : Melange convectif de traceurs a partir des flux de masse |
c Objet : Melange convectif de traceurs a partir des flux de masse |
18 |
c schema de Tiedtke (1993). |
c schema de Tiedtke (1993). |
19 |
c --En particulier, les couches sont numerotees de haut en bas !!! |
c --En particulier, les couches sont numerotees de haut en bas !!! |
20 |
c Ceci est valable pour les flux |
c Ceci est valable pour les flux |
21 |
c mais pas pour les entrees x, pplay, paprs !!!! |
c mais pas pour les entrees x, paprs !!!! |
22 |
c --pmfu est positif, pmfd est negatif |
c --pmfu est positif, pmfd est negatif |
23 |
c --Tous les flux d'entrainements et de detrainements sont positifs |
c --Tous les flux d'entrainements et de detrainements sont positifs |
24 |
c contrairement au schema de Tiedtke d'ou les changements de signe!!!! |
c contrairement au schema de Tiedtke d'ou les changements de signe!!!! |
25 |
c===================================================================== |
c===================================================================== |
26 |
c |
c |
|
include "YOECUMF.h" |
|
27 |
c |
c |
28 |
REAL, intent(in):: pdtime |
REAL, intent(in):: pdtime |
29 |
c--les flux sont definis au 1/2 niveaux |
c--les flux sont definis au 1/2 niveaux |
35 |
REAL pen_d(klon,klev) ! flux entraine dans le panache descendant |
REAL pen_d(klon,klev) ! flux entraine dans le panache descendant |
36 |
REAL pde_d(klon,klev) ! flux detraine dans le panache descendant |
REAL pde_d(klon,klev) ! flux detraine dans le panache descendant |
37 |
|
|
|
REAL pplay(klon,klev) ! pression aux couches (bas en haut) |
|
38 |
REAL, intent(in):: paprs(klon,klev+1) ! pression aux 1/2 couches (bas en haut) |
REAL, intent(in):: paprs(klon,klev+1) ! pression aux 1/2 couches (bas en haut) |
39 |
REAL, intent(in):: x(klon,klev) ! q de traceur (bas en haut) |
REAL, intent(in):: x(klon,klev) ! q de traceur (bas en haut) |
40 |
REAL dx(klon,klev) ! tendance de traceur (bas en haut) |
REAL dx(klon,klev) ! tendance de traceur (bas en haut) |