Changeset 909 for LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Feb 14, 2008, 5:27:13 PM (16 years ago)

Author:

lmdzadmin

Message:

Ajout/modif module physiq contenant variables sauvegardees/ou pas FH/IM
IM

File:

• LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -7 +7 @@
 ! Declaration des variables
 
-      REAL,ALLOCATABLE :: t_seri(:,:), q_seri(:,:)
-      REAL,ALLOCATABLE :: ql_seri(:,:),qs_seri(:,:)
-      REAL,ALLOCATABLE :: u_seri(:,:), v_seri(:,:)
+      REAL, ALLOCATABLE :: t_seri(:,:), q_seri(:,:)
+      REAL, ALLOCATABLE :: ql_seri(:,:),qs_seri(:,:)
+      REAL, ALLOCATABLE :: u_seri(:,:), v_seri(:,:)
 
-
+      REAL, ALLOCATABLE :: tr_seri(:,:,:)
+      REAL, ALLOCATABLE :: d_t_dyn(:,:), d_q_dyn(:,:)
+      REAL, ALLOCATABLE :: d_t_con(:,:),d_q_con(:,:)
+      REAL, ALLOCATABLE :: d_u_con(:,:),d_v_con(:,:)
+      REAL, ALLOCATABLE :: d_t_wake(:,:),d_q_wake(:,:)
+      REAL, ALLOCATABLE :: d_t_lsc(:,:),d_q_lsc(:,:),d_ql_lsc(:,:)
+      REAL, ALLOCATABLE :: d_t_ajsb(:,:), d_q_ajsb(:,:)
+      REAL, ALLOCATABLE :: d_t_ajs(:,:), d_q_ajs(:,:)
+      REAL, ALLOCATABLE :: d_u_ajs(:,:), d_v_ajs(:,:)
+      REAL, ALLOCATABLE :: d_t_eva(:,:),d_q_eva(:,:)
+!tendances dues a oro et lif
+      REAL, ALLOCATABLE :: d_t_oli(:,:)
+      REAL, ALLOCATABLE :: d_u_oli(:,:), d_v_oli(:,:)
+      REAL, ALLOCATABLE :: d_t_vdf(:,:), d_q_vdf(:,:)
+      REAL, ALLOCATABLE :: d_u_vdf(:,:), d_v_vdf(:,:)
+      REAL, ALLOCATABLE :: d_t_oro(:,:)
+      REAL, ALLOCATABLE :: d_u_oro(:,:), d_v_oro(:,:)
+      REAL, ALLOCATABLE :: d_t_lif(:,:)
+      REAL, ALLOCATABLE :: d_u_lif(:,:), d_v_lif(:,:)
+! tendance du a la conersion Ec -> E thermique
+      REAL, ALLOCATABLE :: d_t_ec(:,:)
+      REAL, ALLOCATABLE :: d_ts(:,:), d_tr(:,:,:)
 CONTAINS
 
@@ -18 +39 @@
 use dimphy
 IMPLICIT NONE
+#include "indicesol.h"
       allocate(t_seri(klon,klev),q_seri(klon,klev),ql_seri(klon,klev),qs_seri(klon,klev))
       allocate(u_seri(klon,klev),v_seri(klon,klev))
+
+      allocate(tr_seri(klon,klev,nbtr))
+      allocate(d_t_dyn(klon,klev),d_q_dyn(klon,klev))
+      allocate(d_t_con(klon,klev),d_q_con(klon,klev))
+      allocate(d_u_con(klon,klev),d_v_con(klon,klev))
+      allocate(d_t_wake(klon,klev),d_q_wake(klon,klev))
+      allocate(d_t_lsc(klon,klev),d_q_lsc(klon,klev))
+      allocate(d_ql_lsc(klon,klev))
+      allocate(d_t_ajsb(klon,klev),d_q_ajsb(klon,klev))
+      allocate(d_t_ajs(klon,klev),d_q_ajs(klon,klev))
+      allocate(d_u_ajs(klon,klev),d_v_ajs(klon,klev))
+      allocate(d_t_eva(klon,klev),d_q_eva(klon,klev))
+      allocate(d_t_vdf(klon,klev),d_q_vdf(klon,klev))
+      allocate(d_u_vdf(klon,klev),d_v_vdf(klon,klev))
+      allocate(d_t_oli(klon,klev),d_t_oro(klon,klev))
+      allocate(d_u_oli(klon,klev),d_v_oli(klon,klev))
+      allocate(d_u_oro(klon,klev),d_v_oro(klon,klev))
+      allocate(d_t_lif(klon,klev),d_t_ec(klon,klev))
+      allocate(d_u_lif(klon,klev),d_v_lif(klon,klev))
+      allocate(d_ts(klon,klev), d_tr(klon,klev,nbtr))
 END SUBROUTINE phys_local_var_init
 
@@ -26 +68 @@
 use dimphy
 IMPLICIT NONE
+#include "indicesol.h"
       deallocate(t_seri,q_seri,ql_seri,qs_seri)
       deallocate(u_seri,v_seri)
+
+      deallocate(tr_seri)
+      deallocate(d_t_dyn,d_q_dyn)
+      deallocate(d_t_con,d_q_con)
+      deallocate(d_u_con,d_v_con)
+      deallocate(d_t_wake,d_q_wake)
+      deallocate(d_t_lsc,d_q_lsc)
+      deallocate(d_ql_lsc)
+      deallocate(d_t_ajsb,d_q_ajsb)
+      deallocate(d_t_ajs,d_q_ajs)
+      deallocate(d_u_ajs,d_v_ajs)
+      deallocate(d_t_eva,d_q_eva)
+      deallocate(d_t_vdf,d_q_vdf)
+      deallocate(d_u_vdf,d_v_vdf)
+      deallocate(d_t_oli,d_t_oro)
+      deallocate(d_u_oli,d_v_oli)
+      deallocate(d_u_oro,d_v_oro)
+      deallocate(d_t_lif,d_t_ec)
+      deallocate(d_u_lif,d_v_lif)
+      deallocate(d_ts, d_tr)
 END SUBROUTINE phys_local_var_end