| 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) |
Parent Directory
| 
Revision Log
| 
Patch