source: LMDZ4/trunk/libf/phylmd/calcul_REGDYN.h @ 5169

Last change on this file since 5169 was 644, checked in by Laurent Fairhead, 19 years ago

Synchronisation avec tous les diagnostiques de Ionela IM
Inclusion du slab ocean IM
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 532 bytes
RevLine 
[644]1c
2c $Header$
3c
4c calculs statistiques distribution nuage ftion du regime dynamique
5c
6c Ce calcul doit etre fait a partir de valeurs mensuelles ??
7      CALL histo_o500_pctau(nbregdyn,pct_ocean,o500,fq_isccp,
8     &histoW,nhistoW)
9c
10c nhistoWt = somme de toutes les nhistoW
11      DO nreg=1, nbregdyn
12       DO k = 1, kmaxm1
13        DO l = 1, lmaxm1
14         DO iw = 1, iwmax
15          nhistoWt(k,l,iw,nreg)=nhistoWt(k,l,iw,nreg)+
16     &    nhistoW(k,l,iw,nreg)
17         ENDDO
18        ENDDO
19       ENDDO
20      ENDDO
21c
22cIM 190504 END
Note: See TracBrowser for help on using the repository browser.