My Project
 All Classes Files Functions Variables Macros
vlspltgen_mod.F90
Go to the documentation of this file.
1 MODULE vlspltgen_mod
2 
3  REAL,POINTER,SAVE :: qsat(:,:)
4  REAL,POINTER,SAVE :: mu(:,:)
5  REAL,POINTER,SAVE :: mv(:,:)
6  REAL,POINTER,SAVE :: mw(:,:)
7  REAL,POINTER,SAVE :: zm(:,:,:)
8  REAL,POINTER,SAVE :: zq(:,:,:)
9 
10 CONTAINS
11 
12  SUBROUTINE vlspltgen_allocate
13  USE bands
14  USE allocate_field
15  USE parallel
16  USE infotrac
17  USE vlz_mod,ONLY : vlz_allocate
18  IMPLICIT NONE
19  include "dimensions.h"
20  include "paramet.h"
21  TYPE(distrib),POINTER :: d
22 
23  d=>distrib_vanleer
24  CALL allocate_u(qsat,llm,d)
25  CALL allocate_u(mu,llm,d)
26  CALL allocate_v(mv,llm,d)
27  CALL allocate_u(mw,llm+1,d)
28  CALL allocate_u(zm,llm,nqtot,d)
29  CALL allocate_u(zq,llm,nqtot,d)
30 
31  CALL vlz_allocate
32 
33  END SUBROUTINE vlspltgen_allocate
34 
35  SUBROUTINE vlspltgen_switch_vanleer(dist)
36  USE allocate_field
37  USE bands
38  USE parallel
39  USE vlz_mod,ONLY : vlz_switch_vanleer
40  IMPLICIT NONE
41  TYPE(distrib),INTENT(IN) :: dist
42 
43  CALL switch_u(qsat,distrib_vanleer,dist)
44  CALL switch_u(mu,distrib_vanleer,dist)
45  CALL switch_u(mv,distrib_vanleer,dist)
46  CALL switch_u(mw,distrib_vanleer,dist)
47  CALL switch_u(zm,distrib_vanleer,dist)
48  CALL switch_u(zq,distrib_vanleer,dist)
49 
50  CALL vlz_switch_vanleer(dist)
51 
52  END SUBROUTINE vlspltgen_switch_vanleer
53 
54 END MODULE vlspltgen_mod