17 |
c |
c |
18 |
use dimphy |
use dimphy |
19 |
use clesphys |
use clesphys |
20 |
use YOMCST |
use SUPHEC_M |
21 |
use raddim, only: kflev, kdlon |
use raddim, only: kflev, kdlon |
22 |
use yoethf |
use yoethf_m |
23 |
IMPLICIT none |
IMPLICIT none |
24 |
c====================================================================== |
c====================================================================== |
25 |
c Auteur(s): Z.X. Li (LMD/CNRS) date: 19960719 |
c Auteur(s): Z.X. Li (LMD/CNRS) date: 19960719 |
81 |
real, intent(in):: paprs(klon,klev+1) |
real, intent(in):: paprs(klon,klev+1) |
82 |
real, intent(in):: pplay(klon,klev) |
real, intent(in):: pplay(klon,klev) |
83 |
real albedo(klon), alblw(klon), tsol(klon) |
real albedo(klon), alblw(klon), tsol(klon) |
84 |
real t(klon,klev), q(klon,klev) |
real, intent(in):: t(klon,klev) |
85 |
|
real q(klon,klev) |
86 |
real, intent(in):: wo(klon,klev) |
real, intent(in):: wo(klon,klev) |
87 |
real cldfra(klon,klev), cldemi(klon,klev), cldtaupd(klon,klev) |
real cldfra(klon,klev), cldemi(klon,klev), cldtaupd(klon,klev) |
88 |
real heat(klon,klev), cool(klon,klev) |
real heat(klon,klev), cool(klon,klev) |