source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/cv3_mixscale.F90 @ 5407

Last change on this file since 5407 was 3331, checked in by acozic, 7 years ago

Add modification for isotopes

  • Property svn:executable set to *
File size: 700 bytes
Line 
1SUBROUTINE 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
19  DO j = 1, nl
20    DO i = 1, nl
21      DO il = 1, ncum
22        ment(il, i, j) = m(il, i)*ment(il, i, j)
23      END DO
24    END DO
25  END DO
26
27
28  RETURN
29END SUBROUTINE cv3_mixscale
Note: See TracBrowser for help on using the repository browser.