source: LMDZ6/branches/contrails/libf/phylmd/cv3_mixscale.f90 @ 5779

Last change on this file since 5779 was 5346, checked in by fhourdin, 12 months ago

Debut de replaysation de la convection profonde.

Regroupement de cvparam, cv3param et cvthermo (récemment
passés de statut de .h à module, dans un unique module
lmdz_cv_ini.f90
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 893 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   USE lmdz_cv_ini, ONLY : nl
12    IMPLICIT NONE
13
14
15!inputs:
16  INTEGER, INTENT (IN)                               :: ncum, na, nloc
17  REAL, DIMENSION (nloc, na), INTENT (IN)            :: m
18!input/outputs:
19  REAL, DIMENSION (nloc, na, na), INTENT (INOUT)     :: ment
20
21!local variables:
22  INTEGER i, j, il
23
24    DO j = 1, nl
25      DO i = 1, nl
26        DO il = 1, ncum
27          ment(il, i, j) = m(il, i)*ment(il, i, j)
28        END DO
29      END DO
30    END DO
31
32
33  RETURN
34END SUBROUTINE cv3_mixscale
Note: See TracBrowser for help on using the repository browser.