source: LMDZ5/branches/LMDZ5_SPLA/libf/dyn3dmem/vlz_mod.F90 @ 5441

Last change on this file since 5441 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
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

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • 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
File size: 905 bytes
Line 
1MODULE vlz_mod
2
3  REAL,POINTER,SAVE :: wq(:,:)
4  REAL,POINTER,SAVE :: dzq(:,:)
5  REAL,POINTER,SAVE :: dzqw(:,:)
6  REAL,POINTER,SAVE :: adzqw(:,:)
7 
8CONTAINS
9
10  SUBROUTINE vlz_allocate
11  USE bands
12  USE allocate_field_mod
13  USE parallel_lmdz
14  USE infotrac
15  USE dimensions_mod
16  IMPLICIT NONE
17  TYPE(distrib),POINTER :: d
18   
19    d=>distrib_vanleer
20    CALL allocate_u(wq,llm+1,d)
21    CALL allocate_u(dzq,llm,d)
22    CALL allocate_u(dzqw,llm,d)
23    CALL allocate_u(adzqw,llm,d)
24
25  END SUBROUTINE vlz_allocate
26 
27  SUBROUTINE vlz_switch_vanleer(dist)
28  USE allocate_field_mod
29  USE bands
30  USE parallel_lmdz
31  IMPLICIT NONE
32    TYPE(distrib),INTENT(IN) :: dist
33 
34    CALL switch_u(wq,distrib_vanleer,dist)
35    CALL switch_u(dzq,distrib_vanleer,dist)
36    CALL switch_u(dzqw,distrib_vanleer,dist)
37    CALL switch_u(adzqw,distrib_vanleer,dist)
38
39  END SUBROUTINE vlz_switch_vanleer 
40 
41END MODULE vlz_mod 
Note: See TracBrowser for help on using the repository browser.