Changeset 1795 for LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jul 18, 2013, 10:20:28 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_local_var_mod.F90 (modified) (5 diffs)

LMDZ5/branches/testing/libf/phylmd/phys_local_var_mod.F90

@@ -55 +55 @@
       REAL, SAVE, ALLOCATABLE :: d_u_oli(:,:), d_v_oli(:,:)
       !$OMP THREADPRIVATE(d_u_oli, d_v_oli)
-      REAL, SAVE, ALLOCATABLE :: d_t_vdf(:,:), d_q_vdf(:,:)
-      !$OMP THREADPRIVATE( d_t_vdf, d_q_vdf)
+      REAL, SAVE, ALLOCATABLE :: d_t_vdf(:,:), d_q_vdf(:,:), d_t_diss(:,:)
+      !$OMP THREADPRIVATE( d_t_vdf, d_q_vdf,d_t_diss)
       REAL, SAVE, ALLOCATABLE :: d_u_vdf(:,:), d_v_vdf(:,:)
       !$OMP THREADPRIVATE(d_u_vdf, d_v_vdf)
@@ -191 +191 @@
 !======================================================================
 SUBROUTINE phys_local_var_init
-use dimphy
-use infotrac, ONLY : nbtr
+USE dimphy
+USE infotrac, ONLY : nbtr
 USE aero_mod
+USE indice_sol_mod
 
 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))
@@ -216 +216 @@
       allocate(d_t_lscth(klon,klev),d_q_lscth(klon,klev))
       allocate(plul_st(klon),plul_th(klon))
-      allocate(d_t_vdf(klon,klev),d_q_vdf(klon,klev))
+      allocate(d_t_vdf(klon,klev),d_q_vdf(klon,klev),d_t_diss(klon,klev))
       allocate(d_u_vdf(klon,klev),d_v_vdf(klon,klev))
       allocate(d_t_oli(klon,klev),d_t_oro(klon,klev))
@@ -283 +283 @@
 !======================================================================
 SUBROUTINE phys_local_var_end
-use dimphy
+USE dimphy
+USE indice_sol_mod
 IMPLICIT NONE
-#include "indicesol.h"
       deallocate(t_seri,q_seri,ql_seri,qs_seri)
       deallocate(u_seri,v_seri)
@@ -305 +305 @@
       deallocate(d_t_lscth,d_q_lscth)
       deallocate(plul_st,plul_th)
-      deallocate(d_t_vdf,d_q_vdf)
+      deallocate(d_t_vdf,d_q_vdf,d_t_diss)
       deallocate(d_u_vdf,d_v_vdf)
       deallocate(d_t_oli,d_t_oro)