Changeset 2281 for LMDZ5/trunk/libf/dyn3dmem/vlz_mod.F90

Timestamp:

May 18, 2015, 11:09:37 AM (10 years ago)

Author:

crisi

Message:

Camille Risi: corrections of bugs for the isotopic part

File:

• LMDZ5/trunk/libf/dyn3dmem/vlz_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dmem/vlz_mod.F90

@@ -6 +6 @@
   REAL,POINTER,SAVE :: adzqw(:,:)
   ! CRisi: pour les traceurs:  
-  REAL,POINTER,SAVE :: masseq(:,:,:)
+  !REAL,POINTER,SAVE :: masseq(:,:,:)
   REAL,POINTER,SAVE :: Ratio(:,:,:)
   
@@ -26 +26 @@
     CALL allocate_u(adzqw,llm,d)
     if (nqdesc_tot.gt.0) then
-    CALL allocate_u(masseq,llm,nqtot,d)
+    !CALL allocate_u(masseq,llm,nqtot,d)
     CALL allocate_u(Ratio,llm,nqtot,d)
     endif !if (nqdesc_tot.gt.0) then
@@ -46 +46 @@
     ! CRisi:
     if (nqdesc_tot.gt.0) then    
-    CALL switch_u(masseq,distrib_vanleer,dist)
+    !CALL switch_u(masseq,distrib_vanleer,dist)
     CALL switch_u(Ratio,distrib_vanleer,dist)
     endif !if (nqdesc_tot.gt.0) then