1 |
subroutine dvthermcell2(ngrid,nlay,ptimestep,fm,entr,masse & |
subroutine dvthermcell2(ngrid,nlay,ptimestep,fm,entr,masse & |
2 |
,fraca,larga & |
,fraca,larga & |
3 |
,u,v,du,dv,ua,va) |
,u,v,du,dv,ua,va) |
4 |
use dimens_m |
use dimensions |
5 |
use dimphy |
use dimphy |
6 |
implicit none |
implicit none |
7 |
|
|
28 |
real va(ngrid,nlay) |
real va(ngrid,nlay) |
29 |
real dv(ngrid,nlay) |
real dv(ngrid,nlay) |
30 |
|
|
31 |
real qa(klon,klev),detr(klon,klev),zf,zf2 |
real detr(klon,klev),zf,zf2 |
32 |
real wvd(klon,klev+1),wud(klon,klev+1) |
real wvd(klon,klev+1),wud(klon,klev+1) |
33 |
real gamma0,gamma(klon,klev+1) |
real gamma0,gamma(klon,klev+1) |
34 |
real ue(klon,klev),ve(klon,klev) |
real ue(klon,klev),ve(klon,klev) |