/[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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 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,cd,q2,km,kn,ustar
6       s   ,l_mix)       s   ,l_mix)
7        use dimens_m        use dimens_m
# 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 31  c kn : diffusivite turbulente des scalai Line 30  c kn : diffusivite turbulente des scalai
30  c      (en sortie : la valeur a la fin du pas de temps)  c      (en sortie : la valeur a la fin du pas de temps)
31  c  c
32  c.......................................................................  c.......................................................................
33        REAL dt,g,rconst        REAL g,rconst
34        real plev(klon,klev+1),temp(klon,klev)        real plev(klon,klev+1),temp(klon,klev)
35        real ustar(klon),snstable        real ustar(klon),snstable
36        REAL zlev(klon,klev+1)        REAL zlev(klon,klev+1)
Legend:
Removed from v.3  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21