62 |
use yoegwd, only: sugwd |
use yoegwd, only: sugwd |
63 |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
64 |
USE temps, ONLY: itau_phy |
USE temps, ONLY: itau_phy |
65 |
|
use transp_m, only: transp |
66 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
67 |
USE ymds2ju_m, ONLY: ymds2ju |
USE ymds2ju_m, ONLY: ymds2ju |
68 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
290 |
! Declaration des procedures appelees |
! Declaration des procedures appelees |
291 |
|
|
292 |
EXTERNAL nuage ! calculer les proprietes radiatives |
EXTERNAL nuage ! calculer les proprietes radiatives |
|
EXTERNAL transp ! transport total de l'eau et de l'energie |
|
293 |
|
|
294 |
! Variables locales |
! Variables locales |
295 |
|
|