Changeset 1969

Timestamp:

Feb 11, 2014, 7:11:45 PM (10 years ago)

Author:

fhourdin

Message:

Correction. Declarations manquantes.
Bug fixing (mixing declarations).

Location:

LMDZ5/trunk/libf/phy1d

Files:

• 1D_decl_cases.h (modified) (1 diff)
• lmdz1d.F (modified) (2 diffs)

LMDZ5/trunk/libf/phy1d/1D_decl_cases.h

@@ -209 +209 @@
         real omega_profs(nlev_sandu),o3mmr_profs(nlev_sandu)
 
+        real, dimension(nlev_sandu) :: relax_u,relax_v,relax_thl
+        real, dimension(nlev_sandu,2) :: relax_q
+
         real thl_mod(llm),omega_mod(llm),o3mmr_mod(llm),tke_mod(llm)
 !vertical advection computation

LMDZ5/trunk/libf/phy1d/lmdz1d.F

@@ -155 +155 @@
       REAL, ALLOCATABLE, DIMENSION(:,:):: dq_dyn
       REAL, ALLOCATABLE, DIMENSION(:,:):: d_q_adv
-      REAL, ALLOCATABLE, DIMENSION(:):: d_th_adv
+!     REAL, ALLOCATABLE, DIMENSION(:):: d_th_adv
 
 !---------------------------------------------------------------------
@@ -426 +426 @@
       allocate(dq_dyn(llm,nqtot)) 
       allocate(d_q_adv(llm,nqtot)) 
-      allocate(d_th_adv(llm)) 
+!     allocate(d_th_adv(llm)) 
 
 c