My Project
 All Classes Files Functions Variables Macros
caldyn_mod.F90
Go to the documentation of this file.
1 MODULE caldyn_mod
2 
3  REAL,POINTER,SAVE :: vcont(:,:)
4  REAL,POINTER,SAVE :: ucont(:,:)
5  REAL,POINTER,SAVE :: ang(:,:)
6  REAL,POINTER,SAVE :: p(:,:)
7  REAL,POINTER,SAVE :: massebx(:,:)
8  REAL,POINTER,SAVE :: masseby(:,:)
9  REAL,POINTER,SAVE :: psexbarxy(:,:)
10  REAL,POINTER,SAVE :: vorpot(:,:)
11  REAL,POINTER,SAVE :: ecin(:,:)
12  REAL,POINTER,SAVE :: bern(:,:)
13  REAL,POINTER,SAVE :: massebxy(:,:)
14  REAL,POINTER,SAVE :: convm(:,:)
15 
16 
17 
18 CONTAINS
19 
20  SUBROUTINE caldyn_allocate
21  USE bands
22  USE allocate_field
23  USE parallel
24  USE dimensions
25  USE advect_new_mod,ONLY : advect_new_allocate
26  IMPLICIT NONE
27  TYPE(distrib),POINTER :: d
28 
29 
30  d=>distrib_caldyn
31  CALL allocate_v(vcont,llm,d)
32  CALL allocate_u(ucont,llm,d)
33  CALL allocate_u(ang,llm,d)
34  CALL allocate_u(p,llmp1,d)
35  CALL allocate_u(massebx,llm,d)
36  CALL allocate_v(masseby,llm,d)
37  CALL allocate_v(psexbarxy,llm,d)
38  CALL allocate_v(vorpot,llm,d)
39  CALL allocate_u(ecin,llm,d)
40  CALL allocate_u(bern,llm,d)
41  CALL allocate_v(massebxy,llm,d)
42  CALL allocate_u(convm,llm,d)
43 
44  CALL advect_new_allocate
45 
46  END SUBROUTINE caldyn_allocate
47 
48  SUBROUTINE caldyn_switch_caldyn(dist)
49  USE allocate_field
50  USE bands
51  USE parallel
52  USE advect_new_mod,ONLY : advect_new_switch_caldyn
53  IMPLICIT NONE
54  TYPE(distrib),INTENT(IN) :: dist
55 
56  CALL switch_v(vcont,distrib_caldyn,dist)
57  CALL switch_u(ucont,distrib_caldyn,dist)
58  CALL switch_u(ang,distrib_caldyn,dist)
59  CALL switch_u(p,distrib_caldyn,dist)
60  CALL switch_u(massebx,distrib_caldyn,dist)
61  CALL switch_v(masseby,distrib_caldyn,dist)
62  CALL switch_v(psexbarxy,distrib_caldyn,dist)
63  CALL switch_v(vorpot,distrib_caldyn,dist)
64  CALL switch_u(ecin,distrib_caldyn,dist)
65  CALL switch_u(bern,distrib_caldyn,dist)
66  CALL switch_v(massebxy,distrib_caldyn,dist)
67  CALL switch_u(convm,distrib_caldyn,dist)
68 
69  CALL advect_new_switch_caldyn(dist)
70 
71  END SUBROUTINE caldyn_switch_caldyn
72 
73 
74 
75 END MODULE caldyn_mod