source: lmdz_wrf/trunk/WRFV3/lmdz/cv3_mixscale.F @ 951

Last change on this file since 951 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

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.