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 |
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) |
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) |