9 |
ts, qsurf, rugos, okri, ri1, & |
ts, qsurf, rugos, okri, ri1, & |
10 |
cdram, cdrah, cdran, zri1, pref) |
cdram, cdrah, cdran, zri1, pref) |
11 |
use indicesol |
use indicesol |
12 |
use YOMCST |
use SUPHEC_M |
13 |
use yoethf |
use yoethf_m |
14 |
IMPLICIT none |
IMPLICIT none |
15 |
!------------------------------------------------------------------------- |
!------------------------------------------------------------------------- |
16 |
! Objet : calcul des cdrags pour le moment (cdram) et les flux de chaleur |
! Objet : calcul des cdrags pour le moment (cdram) et les flux de chaleur |