source: LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_REGDYN.h @ 5133

Last change on this file since 5133 was 5128, checked in by abarral, 5 months ago

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 532 bytes
RevLine 
[5128]1!
2! $Header$
3!
4! calculs statistiques distribution nuage ftion du regime dynamique
5!
6! Ce calcul doit etre fait a partir de valeurs mensuelles ??
7      CALL histo_o500_pctau(nbregdyn,pct_ocean,o500,fq_isccp, &
8     histoW,nhistoW)
9!
10! nhistoWt = somme de toutes les nhistoW
[644]11      DO nreg=1, nbregdyn
12       DO k = 1, kmaxm1
13        DO l = 1, lmaxm1
14         DO iw = 1, iwmax
[5128]15          nhistoWt(k,l,iw,nreg)=nhistoWt(k,l,iw,nreg)+&
16         nhistoW(k,l,iw,nreg)
[644]17         ENDDO
18        ENDDO
19       ENDDO
20      ENDDO
[5128]21!
22!IM 190504 END
Note: See TracBrowser for help on using the repository browser.