/[lmdze]/trunk/phylmd/nflxtr.f
ViewVC logotype

Diff of /trunk/phylmd/nflxtr.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 2  Line 2 
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 YOMCST
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
# Line 17  c             elle a herite de certaines Line 18  c             elle a herite de certaines
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
# Line 35  c--pmfu(klev+1) et pmfd(klev+1) sont imp Line 35  c--pmfu(klev+1) et pmfd(klev+1) sont imp
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)
Legend:
Removed from v.7  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21