Changeset 2286 for LMDZ5/trunk/libf/dyn3d/qminimum.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/qminimum.F (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3d/qminimum.F

@@ -55 +55 @@
 
       zx_defau_diag(:,:,:)=0.0
-      q_follow(:,:,:)=q(:,:,:)  
+      q_follow(:,:,1:2)=q(:,:,1:2)  
       DO 1000 k = 1, llm
         DO 1040 i = 1, ip1jmp1
@@ -110 +110 @@
       ENDIF
 
-      write(*,*) 'qminimum 128'
+      !write(*,*) 'qminimum 128'
       if (ok_isotopes) then
       ! CRisi: traiter de même les traceurs d'eau
@@ -158 +158 @@
       
         ! 3) transfert d'eau de la vapeur au liquide
-        write(*,*) 'qminimum 164'
+        !write(*,*) 'qminimum 164'
         do k=1,llm
         DO i = 1,ip1jmp1
@@ -186 +186 @@
 
       endif !if (ok_isotopes) then
-      write(*,*) 'qminimum 188'
+      !write(*,*) 'qminimum 188'
       
 c