source: lmdz_wrf/trunk/WRFV3/lmdz/cv3_mixscale.F90 @ 1939

Last change on this file since 1939 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: 904 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)
18!c
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
27!c
28      return
29      end
Note: See TracBrowser for help on using the repository browser.