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

Diff of /trunk/phylmd/yamada.f

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

revision 17 by guez, Tue Aug 5 13:31:32 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/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,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 18  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 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.17  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21