Changeset 2286 for LMDZ5/trunk/libf/dyn3d/vlspltqs.F

Timestamp:

May 20, 2015, 3:27:07 PM (10 years ago)

Author:

Ehouarn Millour

Message:

• fix in dyn3d the array out of bound issue (in qminimum) that was only corrected in dyn3dmem in rev 2285.
• comment out many invasive debug writes.

EM

File:

• LMDZ5/trunk/libf/dyn3d/vlspltqs.F (modified) (6 diffs)

LMDZ5/trunk/libf/dyn3d/vlspltqs.F

@@ -175 +175 @@
       enddo !do ifils=1,nqdesc(iq)  
       endif ! if (nqfils(iq).gt.0) then
-      write(*,*) 'vlspltqs 183: fin de la routine'
+      !write(*,*) 'vlspltqs 183: fin de la routine'
 
       RETURN
@@ -486 +486 @@
 ! CRisi: appel récursif de l'advection sur les fils.
 ! Il faut faire ça avant d'avoir mis à jour q et masse
-      write(*,*) 'vlspltqs 326: iq,nqfils(iq)=',iq,nqfils(iq) 
+      !write(*,*) 'vlspltqs 326: iq,nqfils(iq)=',iq,nqfils(iq) 
       
       if (nqfils(iq).gt.0) then  
@@ -797 +797 @@
 ! CRisi: appel récursif de l'advection sur les fils.
 ! Il faut faire ça avant d'avoir mis à jour q et masse
-      write(*,*) 'vlyqs 689: iq,nqfils(iq)=',iq,nqfils(iq) 
+      !write(*,*) 'vlyqs 689: iq,nqfils(iq)=',iq,nqfils(iq) 
    
       if (nqfils(iq).gt.0) then  
@@ -812 +812 @@
         do ifils=1,nqfils(iq)
          iq2=iqfils(ifils,iq)
-         write(*,*) 'vlyqs 783: appel rec de vly, iq2=',iq2
+         !write(*,*) 'vlyqs 783: appel rec de vly, iq2=',iq2
          call vly(Ratio,pente_max,masseq,qbyv,iq2)
         enddo !do ifils=1,nqfils(iq)
@@ -868 +868 @@
       ENDDO
 
-      write(*,*) 'vly 866'
+      !write(*,*) 'vly 866'
 
 ! retablir les fils en rapport de melange par rapport a l'air:
@@ -881 +881 @@
         enddo !do ifils=1,nqdesc(iq)
       endif !if (nqfils(iq).gt.0) then
-      write(*,*) 'vly 879'
+      !write(*,*) 'vly 879'
 
       RETURN