source: LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3_mixscale.F @ 1373

Last change on this file since 1373 was 970, checked in by Laurent Fairhead, 16 years ago

Corrections petits bugs divers
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 893 bytes
Line 
1        SUBROUTINE cv3_mixscale(nloc,ncum,na,ment,m)
2***************************************************************
3*                                                             *
4* CV3_MIXSCALE                                                *
5*                                                             *
6*                                                             *
7* written by   : Jean-Yves Grandpeix, 30/05/2003, 16.34.37    *
8* modified by :                                               *
9***************************************************************
10*
11      implicit none
12
13#include "cv3param.h"
14
15      integer nloc,ncum,na
16      integer i,j,il
17      real ment(nloc,na,na),m(nloc,na)
18c
19      do 100 j=1,nl
20        do 101 i=1,nl
21          do 102 il=1,ncum
22             ment(il,i,j) = m(il,i)*ment(il,i,j)
23102      continue
24101    continue
25100   continue
26
27c
28      return
29      end
Note: See TracBrowser for help on using the repository browser.