1 | MODULE phys_local_var_mod |
---|
2 | ! Variables locales pour effectuer les appels en serie |
---|
3 | !====================================================================== |
---|
4 | ! |
---|
5 | ! |
---|
6 | !====================================================================== |
---|
7 | ! Declaration des variables |
---|
8 | |
---|
9 | REAL,ALLOCATABLE :: t_seri(:,:), q_seri(:,:) |
---|
10 | REAL,ALLOCATABLE :: ql_seri(:,:),qs_seri(:,:) |
---|
11 | REAL,ALLOCATABLE :: u_seri(:,:), v_seri(:,:) |
---|
12 | |
---|
13 | |
---|
14 | CONTAINS |
---|
15 | |
---|
16 | !====================================================================== |
---|
17 | SUBROUTINE phys_local_var_init |
---|
18 | use dimphy |
---|
19 | IMPLICIT NONE |
---|
20 | allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev)) |
---|
21 | allocate(u_seri(klon,klev),v_seri(klon,klev)) |
---|
22 | END SUBROUTINE phys_local_var_init |
---|
23 | |
---|
24 | !====================================================================== |
---|
25 | SUBROUTINE phys_local_var_end |
---|
26 | use dimphy |
---|
27 | IMPLICIT NONE |
---|
28 | deallocate(t_seri,q_seri,ql_seri,qs_seri) |
---|
29 | deallocate(u_seri,v_seri) |
---|
30 | END SUBROUTINE phys_local_var_end |
---|
31 | |
---|
32 | END MODULE phys_local_var_mod |
---|