Changeset 1969 for LMDZ5/trunk/libf/phy1d/lmdz1d.F

Timestamp:

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

Author:

fhourdin

Message:

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

File:

• LMDZ5/trunk/libf/phy1d/lmdz1d.F (modified) (2 diffs)

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