Changeset 2286 for LMDZ5/trunk/libf/dyn3dmem/vlspltgen_loc.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/dyn3dmem/vlspltgen_loc.F (modified) (14 diffs)

LMDZ5/trunk/libf/dyn3dmem/vlspltgen_loc.F

@@ -202 +202 @@
 !      DO iq=1,nqtot
       DO iq=1,nqperes ! CRisi: on ne boucle que sur les pères= ceux qui sont transportés directement par l'air
-       write(*,*) 'vlspltgen 192: iq,iadv=',iq,iadv(iq)
+       !write(*,*) 'vlspltgen 192: iq,iadv=',iq,iadv(iq)
 #ifdef DEBUG_IO    
        CALL WriteField_u('zq',zq(:,:,iq))
@@ -298 +298 @@
 
       do iq=1,nqperes
-        write(*,*) 'vlspltgen 279: iq=',iq
+        !write(*,*) 'vlspltgen 279: iq=',iq
 
         if(iadv(iq) == 0) then
@@ -351 +351 @@
 
       do iq=1,nqperes
-       write(*,*) 'vlspltgen 321: iq=',iq
+       !write(*,*) 'vlspltgen 321: iq=',iq
 #ifdef DEBUG_IO    
        CALL WriteField_u('zq',zq(:,:,iq))
@@ -383 +383 @@
 
       do iq=1,nqperes
-      write(*,*) 'vlspltgen 349: iq=',iq
+      !write(*,*) 'vlspltgen 349: iq=',iq
 #ifdef DEBUG_IO    
        CALL WriteField_u('zq',zq(:,:,iq))
@@ -448 +448 @@
 c$OMP BARRIER
       do iq=1,nqperes
-      write(*,*) 'vlspltgen 409: iq=',iq
+      !write(*,*) 'vlspltgen 409: iq=',iq
 
         if(iadv(iq) == 0) then
@@ -470 +470 @@
       
       enddo
-      write(*,*) 'vlspltgen_loc 476'
-
-c$OMP BARRIER
-      write(*,*) 'vlspltgen_loc 477'
+      !write(*,*) 'vlspltgen_loc 476'
+
+c$OMP BARRIER
+      !write(*,*) 'vlspltgen_loc 477'
 c$OMP MASTER
       call VTb(VTHallo)
@@ -489 +489 @@
 
 
-      write(*,*) 'vlspltgen_loc 494'
+      !write(*,*) 'vlspltgen_loc 494'
       if (ok_iso_verif) then
            call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 461')
@@ -495 +495 @@
 
       do iq=1,nqperes
-      write(*,*) 'vlspltgen 449: iq=',iq
+      !write(*,*) 'vlspltgen 449: iq=',iq
 #ifdef DEBUG_IO    
        CALL WriteField_u('zq',zq(:,:,iq))
@@ -526 +526 @@
 
       do iq=1,nqperes
-      write(*,*) 'vlspltgen 477: iq=',iq
+      !write(*,*) 'vlspltgen 477: iq=',iq
 #ifdef DEBUG_IO    
        CALL WriteField_u('zq',zq(:,:,iq))
@@ -553 +553 @@
        enddo !do iq=1,nqperes
 
-      write(*,*) 'vlspltgen 550: apres derniere serie de call vlx'
+      !write(*,*) 'vlspltgen 550: apres derniere serie de call vlx'
       if (ok_iso_verif) then
            call check_isotopes(zq,ij_begin,ij_end,'vlspltgen_loc 521')
@@ -560 +560 @@
       ijb=ij_begin
       ije=ij_end
-      write(*,*) 'vlspltgen_loc 557'
+      !write(*,*) 'vlspltgen_loc 557'
 c$OMP BARRIER      
 
-      write(*,*) 'vlspltgen_loc 559'  
+      !write(*,*) 'vlspltgen_loc 559'  
       DO iq=1,nqtot
-       write(*,*) 'vlspltgen_loc 561, iq=',iq  
+       !write(*,*) 'vlspltgen_loc 561, iq=',iq  
 #ifdef DEBUG_IO    
        CALL WriteField_u('zq',zq(:,:,iq))
@@ -579 +579 @@
         ENDDO
 c$OMP END DO NOWAIT    
-      write(*,*) 'vlspltgen_loc 575'      
+      !write(*,*) 'vlspltgen_loc 575'      
 
 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -588 +588 @@
         ENDDO
 c$OMP END DO NOWAIT  
-      write(*,*) 'vlspltgen_loc 583'  
+      !write(*,*) 'vlspltgen_loc 583'  
       ENDDO !DO iq=1,nqtot
         
@@ -603 +603 @@
 cc$OMP BARRIER
 
-      write(*,*) 'vlspltgen 597: sortie'  
+      !write(*,*) 'vlspltgen 597: sortie'  
       RETURN
       END