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