My Project
 All Classes Files Functions Variables Macros
integrd_mod.F90
Go to the documentation of this file.
1 MODULE integrd_mod
2 
3  REAL,POINTER,SAVE :: p(:,:)
4  REAL,POINTER,SAVE :: deltap(:,:)
5  REAL,POINTER,SAVE :: ps(:)
6 
7 
8 
9 CONTAINS
10 
11  SUBROUTINE integrd_allocate
12  USE bands
13  USE allocate_field
14  USE parallel
15  USE dimensions
16  USE advect_new_mod,ONLY : advect_new_allocate
17  IMPLICIT NONE
18  TYPE(distrib),POINTER :: d
19 
20 
21  d=>distrib_caldyn
22  CALL allocate_u(p,llmp1,d)
23  CALL allocate_u(deltap,llm,d)
24  CALL allocate_u(ps,d)
25 
26 
27  END SUBROUTINE integrd_allocate
28 
29  SUBROUTINE integrd_switch_caldyn(dist)
30  USE allocate_field
31  USE bands
32  USE parallel
33  IMPLICIT NONE
34  TYPE(distrib),INTENT(IN) :: dist
35 
36  CALL switch_u(p,distrib_caldyn,dist)
37  CALL switch_u(deltap,distrib_caldyn,dist)
38  CALL switch_u(ps,distrib_caldyn,dist)
39 
40 
41 
42  END SUBROUTINE integrd_switch_caldyn
43 
44 
45 
46 END MODULE integrd_mod