My Project
 All Classes Files Functions Variables Macros
vlz_mod.F90
Go to the documentation of this file.
1 MODULE vlz_mod
2 
3  REAL,POINTER,SAVE :: wq(:,:)
4  REAL,POINTER,SAVE :: dzq(:,:)
5  REAL,POINTER,SAVE :: dzqw(:,:)
6  REAL,POINTER,SAVE :: adzqw(:,:)
7 
8 CONTAINS
9 
10  SUBROUTINE vlz_allocate
11  USE bands
12  USE allocate_field
13  USE parallel
14  USE infotrac
15  USE dimensions
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
29  USE bands
30  USE parallel
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 
41 END MODULE vlz_mod