source: LMDZ6/trunk/libf/phylmd/cv3_mixscale.f90 @ 5445

Last change on this file since 5445 was 5346, checked in by fhourdin, 3 weeks 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
RevLine 
[1992]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  ! **************************************************************
[970]10
[5346]11   USE lmdz_cv_ini, ONLY : nl
[5299]12    IMPLICIT NONE
[970]13
[879]14
[3496]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:
[1992]22  INTEGER i, j, il
23
[3496]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
[1992]29      END DO
30    END DO
31
32
33  RETURN
34END SUBROUTINE cv3_mixscale
Note: See TracBrowser for help on using the repository browser.