My Project
 All Classes Files Functions Variables Macros
nxgraro2_mod.F90
Go to the documentation of this file.
1 MODULE nxgraro2_mod
2 
3  REAL,POINTER,SAVE :: grx( :,: )
4  REAL,POINTER,SAVE :: gry( :,: )
5  REAL,POINTER,SAVE :: rot( :,: )
6 
7 CONTAINS
8 
9  SUBROUTINE nxgraro2_allocate
10  USE bands
11  USE allocate_field
12  USE parallel
13  USE dimensions
14  IMPLICIT NONE
15  TYPE(distrib),POINTER :: d
16  d=>distrib_dissip
17 
18  CALL allocate_u(grx,llm,d)
19  CALL allocate_v(gry,llm,d)
20  CALL allocate_v(rot,llm,d)
21 
22 
23  END SUBROUTINE nxgraro2_allocate
24 
25  SUBROUTINE nxgraro2_switch_dissip(dist)
26  USE allocate_field
27  USE bands
28  USE parallel
29  IMPLICIT NONE
30  TYPE(distrib),INTENT(IN) :: dist
31 
32  CALL switch_u(grx,distrib_dissip,dist)
33  CALL switch_v(gry,distrib_dissip,dist)
34  CALL switch_v(rot,distrib_dissip,dist)
35 
36 
37  END SUBROUTINE nxgraro2_switch_dissip
38 
39 END MODULE nxgraro2_mod