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

SUBROUTINE cv3_mixscale(nloc, ncum, na, ment, m)
  ! **************************************************************
  ! *
  ! CV3_MIXSCALE                                                *
  ! *
  ! *
  ! written by   : Jean-Yves Grandpeix, 30/05/2003, 16.34.37    *
  ! modified by :                                               *
  ! **************************************************************

  IMPLICIT NONE

  include "cv3param.h"

  INTEGER nloc, ncum, na
  INTEGER i, j, il
  REAL ment(nloc, na, na), m(nloc, na)

  DO j = 1, nl
    DO i = 1, nl
      DO il = 1, ncum
        ment(il, i, j) = m(il, i)*ment(il, i, j)
      END DO
    END DO
  END DO


  RETURN
END SUBROUTINE cv3_mixscale