| 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 | REAL, ALLOCATABLE :: tr_seri(:,:,:) |
|---|
| 14 | REAL, ALLOCATABLE :: d_t_dyn(:,:), d_q_dyn(:,:) |
|---|
| 15 | REAL, ALLOCATABLE :: d_t_con(:,:),d_q_con(:,:) |
|---|
| 16 | REAL, ALLOCATABLE :: d_u_con(:,:),d_v_con(:,:) |
|---|
| 17 | REAL, ALLOCATABLE :: d_t_wake(:,:),d_q_wake(:,:) |
|---|
| 18 | REAL, ALLOCATABLE :: d_t_lsc(:,:),d_q_lsc(:,:),d_ql_lsc(:,:) |
|---|
| 19 | REAL, ALLOCATABLE :: d_t_ajsb(:,:), d_q_ajsb(:,:) |
|---|
| 20 | REAL, ALLOCATABLE :: d_t_ajs(:,:), d_q_ajs(:,:) |
|---|
| 21 | REAL, ALLOCATABLE :: d_u_ajs(:,:), d_v_ajs(:,:) |
|---|
| 22 | REAL, ALLOCATABLE :: d_t_eva(:,:),d_q_eva(:,:) |
|---|
| 23 | !tendances dues a oro et lif |
|---|
| 24 | REAL, ALLOCATABLE :: d_t_oli(:,:) |
|---|
| 25 | REAL, ALLOCATABLE :: d_u_oli(:,:), d_v_oli(:,:) |
|---|
| 26 | REAL, ALLOCATABLE :: d_t_vdf(:,:), d_q_vdf(:,:) |
|---|
| 27 | REAL, ALLOCATABLE :: d_u_vdf(:,:), d_v_vdf(:,:) |
|---|
| 28 | REAL, ALLOCATABLE :: d_t_oro(:,:) |
|---|
| 29 | REAL, ALLOCATABLE :: d_u_oro(:,:), d_v_oro(:,:) |
|---|
| 30 | REAL, ALLOCATABLE :: d_t_lif(:,:) |
|---|
| 31 | REAL, ALLOCATABLE :: d_u_lif(:,:), d_v_lif(:,:) |
|---|
| 32 | ! tendance du a la conersion Ec -> E thermique |
|---|
| 33 | REAL, ALLOCATABLE :: d_t_ec(:,:) |
|---|
| 34 | REAL, ALLOCATABLE :: d_ts(:,:), d_tr(:,:,:) |
|---|
| 35 | CONTAINS |
|---|
| 36 | |
|---|
| 37 | !====================================================================== |
|---|
| 38 | SUBROUTINE phys_local_var_init |
|---|
| 39 | use dimphy |
|---|
| 40 | IMPLICIT NONE |
|---|
| 41 | #include "indicesol.h" |
|---|
| 42 | allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev)) |
|---|
| 43 | allocate(u_seri(klon,klev),v_seri(klon,klev)) |
|---|
| 44 | |
|---|
| 45 | allocate(tr_seri(klon,klev,nbtr)) |
|---|
| 46 | allocate(d_t_dyn(klon,klev),d_q_dyn(klon,klev)) |
|---|
| 47 | allocate(d_t_con(klon,klev),d_q_con(klon,klev)) |
|---|
| 48 | allocate(d_u_con(klon,klev),d_v_con(klon,klev)) |
|---|
| 49 | allocate(d_t_wake(klon,klev),d_q_wake(klon,klev)) |
|---|
| 50 | allocate(d_t_lsc(klon,klev),d_q_lsc(klon,klev)) |
|---|
| 51 | allocate(d_ql_lsc(klon,klev)) |
|---|
| 52 | allocate(d_t_ajsb(klon,klev),d_q_ajsb(klon,klev)) |
|---|
| 53 | allocate(d_t_ajs(klon,klev),d_q_ajs(klon,klev)) |
|---|
| 54 | allocate(d_u_ajs(klon,klev),d_v_ajs(klon,klev)) |
|---|
| 55 | allocate(d_t_eva(klon,klev),d_q_eva(klon,klev)) |
|---|
| 56 | allocate(d_t_vdf(klon,klev),d_q_vdf(klon,klev)) |
|---|
| 57 | allocate(d_u_vdf(klon,klev),d_v_vdf(klon,klev)) |
|---|
| 58 | allocate(d_t_oli(klon,klev),d_t_oro(klon,klev)) |
|---|
| 59 | allocate(d_u_oli(klon,klev),d_v_oli(klon,klev)) |
|---|
| 60 | allocate(d_u_oro(klon,klev),d_v_oro(klon,klev)) |
|---|
| 61 | allocate(d_t_lif(klon,klev),d_t_ec(klon,klev)) |
|---|
| 62 | allocate(d_u_lif(klon,klev),d_v_lif(klon,klev)) |
|---|
| 63 | allocate(d_ts(klon,klev), d_tr(klon,klev,nbtr)) |
|---|
| 64 | END SUBROUTINE phys_local_var_init |
|---|
| 65 | |
|---|
| 66 | !====================================================================== |
|---|
| 67 | SUBROUTINE phys_local_var_end |
|---|
| 68 | use dimphy |
|---|
| 69 | IMPLICIT NONE |
|---|
| 70 | #include "indicesol.h" |
|---|
| 71 | deallocate(t_seri,q_seri,ql_seri,qs_seri) |
|---|
| 72 | deallocate(u_seri,v_seri) |
|---|
| 73 | |
|---|
| 74 | deallocate(tr_seri) |
|---|
| 75 | deallocate(d_t_dyn,d_q_dyn) |
|---|
| 76 | deallocate(d_t_con,d_q_con) |
|---|
| 77 | deallocate(d_u_con,d_v_con) |
|---|
| 78 | deallocate(d_t_wake,d_q_wake) |
|---|
| 79 | deallocate(d_t_lsc,d_q_lsc) |
|---|
| 80 | deallocate(d_ql_lsc) |
|---|
| 81 | deallocate(d_t_ajsb,d_q_ajsb) |
|---|
| 82 | deallocate(d_t_ajs,d_q_ajs) |
|---|
| 83 | deallocate(d_u_ajs,d_v_ajs) |
|---|
| 84 | deallocate(d_t_eva,d_q_eva) |
|---|
| 85 | deallocate(d_t_vdf,d_q_vdf) |
|---|
| 86 | deallocate(d_u_vdf,d_v_vdf) |
|---|
| 87 | deallocate(d_t_oli,d_t_oro) |
|---|
| 88 | deallocate(d_u_oli,d_v_oli) |
|---|
| 89 | deallocate(d_u_oro,d_v_oro) |
|---|
| 90 | deallocate(d_t_lif,d_t_ec) |
|---|
| 91 | deallocate(d_u_lif,d_v_lif) |
|---|
| 92 | deallocate(d_ts, d_tr) |
|---|
| 93 | END SUBROUTINE phys_local_var_end |
|---|
| 94 | |
|---|
| 95 | END MODULE phys_local_var_mod |
|---|
