4 c calculs statistiques distribution
nuage ftion
du regime dynamique
6 c Ce calcul doit etre fait a partir
de valeurs mensuelles ??
10 c nhistoWt = somme
de toutes les nhistoW
15 nhistoWt(k,l,iw,nreg)=nhistoWt(k,l,iw,nreg)+
16 & nhistoW(k,l,iw,nreg)
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL nbregdyn DO kmaxm1 DO l
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL nbregdyn DO k
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL histo_o500_pctau(nbregdyn, pct_ocean, o500, fq_isccp,&histoW, nhistoW) c c nhistoWt
subroutine nuage(paprs, pplay, t, pqlwp, pclc, pcltau, pclemi, pch, pcl, pcm, pct, pctlwp, ok_aie, mass_solu_aero, mass_solu_aero_pi, bl95_b0, bl95_b1, cldtaupi, re, fl)
real, dimension(:,:), pointer, save du
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL nbregdyn DO kmaxm1 DO lmaxm1 DO iw