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

LMDZ5/trunk/libf/dyn3dmem/caladvtrac_loc.F

@@ -56 +56 @@
 !$OMP THREADPRIVATE(Request_vanleer)
 
-      write(*,*) 'caladvtrac 58: entree'     
+      !write(*,*) 'caladvtrac 58: entree'     
       ijbu=ij_begin
       ijeu=ij_end
@@ -109 +109 @@
 
       IF ( iadvtr.EQ.iapp_tracvl ) THEN
-      write(*,*) 'caladvtrac 133'
+      !write(*,*) 'caladvtrac 133'
 c$OMP MASTER
         call suspend_timer(timer_caldyn)
@@ -184 +184 @@
          CALL WriteField_u('wg1',wg_adv)
 #endif        
-      write(*,*) 'caladvtrac 185'  
+      !write(*,*) 'caladvtrac 185'  
       CALL advtrac_loc( pbarug_adv,pbarvg_adv,wg_adv, 
      *             p_adv,  massem_adv,q_adv, teta_adv,
      .             pk_adv)     
-      write(*,*) 'caladvtrac 189'
+      !write(*,*) 'caladvtrac 189'