Changeset 2298 for LMDZ5/branches/testing/libf/dyn3dmem/caladvtrac_loc.F

Timestamp:

Jun 14, 2015, 9:13:32 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2237:2291 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/caladvtrac_loc.F (modified) (3 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/caladvtrac_loc.F

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