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