/[lmdze]/trunk/Sources/phylmd/yamada.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/yamada.f

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

trunk/libf/phylmd/yamada.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/phylmd/yamada.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 1  Line 1 
1  !  !
2  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/yamada.F,v 1.1 2004/06/22 11:45:36 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/yamada.F,v 1.1 2004/06/22 11:45:36 lmdzadmin Exp $
3  !  !
4        SUBROUTINE yamada(ngrid,dt,g,rconst,plev,temp        SUBROUTINE yamada(ngrid,g,rconst,plev,temp
5       s   ,zlev,zlay,u,v,teta,cd,q2,km,kn,ustar       s   ,zlev,zlay,u,v,teta,q2,km,kn,ustar
6       s   ,l_mix)       s   ,l_mix)
7        use dimens_m        use dimens_m
8        use dimphy        use dimphy
# Line 10  Line 10 
10  c.......................................................................  c.......................................................................
11  c.......................................................................  c.......................................................................
12  c  c
 c dt : pas de temps  
13  c g  : g  c g  : g
14  c zlev : altitude a chaque niveau (interface inferieure de la couche  c zlev : altitude a chaque niveau (interface inferieure de la couche
15  c        de meme indice)  c        de meme indice)
# Line 19  c u,v : vitesse au centre de chaque couc Line 18  c u,v : vitesse au centre de chaque couc
18  c       (en entree : la valeur au debut du pas de temps)  c       (en entree : la valeur au debut du pas de temps)
19  c teta : temperature potentielle au centre de chaque couche  c teta : temperature potentielle au centre de chaque couche
20  c        (en entree : la valeur au debut du pas de temps)  c        (en entree : la valeur au debut du pas de temps)
 c cd : cdrag  
 c      (en entree : la valeur au debut du pas de temps)  
21  c q2 : $q^2$ au bas de chaque couche  c q2 : $q^2$ au bas de chaque couche
22  c      (en entree : la valeur au debut du pas de temps)  c      (en entree : la valeur au debut du pas de temps)
23  c      (en sortie : la valeur a la fin du pas de temps)  c      (en sortie : la valeur a la fin du pas de temps)
# Line 31  c kn : diffusivite turbulente des scalai Line 28  c kn : diffusivite turbulente des scalai
28  c      (en sortie : la valeur a la fin du pas de temps)  c      (en sortie : la valeur a la fin du pas de temps)
29  c  c
30  c.......................................................................  c.......................................................................
31        REAL dt,g,rconst        REAL, intent(in):: g
32          real rconst
33        real plev(klon,klev+1),temp(klon,klev)        real plev(klon,klev+1),temp(klon,klev)
34        real ustar(klon),snstable        real ustar(klon),snstable
35        REAL zlev(klon,klev+1)        REAL zlev(klon,klev+1)
# Line 39  c....................................... Line 37  c.......................................
37        REAL u(klon,klev)        REAL u(klon,klev)
38        REAL v(klon,klev)        REAL v(klon,klev)
39        REAL teta(klon,klev)        REAL teta(klon,klev)
       REAL cd(klon)  
40        REAL q2(klon,klev+1)        REAL q2(klon,klev+1)
41        REAL km(klon,klev+1)        REAL km(klon,klev+1)
42        REAL kn(klon,klev+1)        REAL kn(klon,klev+1)
Legend:
Removed from v.3  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21