/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 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 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
# 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 pdtime        REAL, intent(in):: pdtime
29  c--les flux sont definis au 1/2 niveaux  c--les flux sont definis au 1/2 niveaux
30  c--pmfu(klev+1) et pmfd(klev+1) sont implicitement nuls  c--pmfu(klev+1) et pmfd(klev+1) sont implicitement nuls
31        REAL pmfu(klon,klev)  ! flux de masse dans le panache montant  
32          REAL, intent(in):: pmfu(klon,klev)
33    !     flux de masse dans le panache montant
34    
35        REAL pmfd(klon,klev)  ! flux de masse dans le panache descendant        REAL pmfd(klon,klev)  ! flux de masse dans le panache descendant
36        REAL pen_u(klon,klev) ! flux entraine dans le panache montant        REAL pen_u(klon,klev) ! flux entraine dans le panache montant
37        REAL pde_u(klon,klev) ! flux detraine dans le panache montant        REAL pde_u(klon,klev) ! flux detraine dans le panache montant
38        REAL pen_d(klon,klev) ! flux entraine dans le panache descendant        REAL pen_d(klon,klev) ! flux entraine dans le panache descendant
39        REAL pde_d(klon,klev) ! flux detraine dans le panache descendant        REAL pde_d(klon,klev) ! flux detraine dans le panache descendant
40    
       REAL pplay(klon,klev)    ! pression aux couches (bas en haut)  
41        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)
42        REAL, intent(in):: x(klon,klev)        ! q de traceur (bas en haut)        REAL, intent(in):: x(klon,klev)        ! q de traceur (bas en haut)
43        REAL dx(klon,klev)     ! tendance de traceur  (bas en haut)        REAL dx(klon,klev)     ! tendance de traceur  (bas en haut)
Legend:
Removed from v.3  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21