10 |
s cldtaupi, re, fl) |
s cldtaupi, re, fl) |
11 |
use dimens_m |
use dimens_m |
12 |
use dimphy |
use dimphy |
13 |
use YOMCST |
use SUPHEC_M |
14 |
IMPLICIT none |
IMPLICIT none |
15 |
c====================================================================== |
c====================================================================== |
16 |
c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930910 |
c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930910 |
231 |
. diafra,dialiq) |
. diafra,dialiq) |
232 |
use dimens_m |
use dimens_m |
233 |
use dimphy |
use dimphy |
234 |
use YOMCST |
use SUPHEC_M |
235 |
IMPLICIT none |
IMPLICIT none |
236 |
c |
c |
237 |
c Laurent Li (LMD/CNRS), le 12 octobre 1998 |
c Laurent Li (LMD/CNRS), le 12 octobre 1998 |
315 |
SUBROUTINE diagcld2(paprs,pplay,t,q, diafra,dialiq) |
SUBROUTINE diagcld2(paprs,pplay,t,q, diafra,dialiq) |
316 |
use dimens_m |
use dimens_m |
317 |
use dimphy |
use dimphy |
318 |
use YOMCST |
use SUPHEC_M |
319 |
use yoethf |
use yoethf_m |
320 |
c Fonctions thermodynamiques: |
c Fonctions thermodynamiques: |
321 |
use fcttre |
use fcttre |
322 |
IMPLICIT none |
IMPLICIT none |