Changeset 2185

Timestamp:

Jan 23, 2015, 3:01:47 PM (10 years ago)

Author:

acozic

Message:

Add call to finalize inca to close inca context (in xios_mode)

File:

• LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

@@ -1397 +1397 @@
       IF (itau==itaumax) then
 c$OMP MASTER
-            call allgather_timer_average
-      call barrier
-      if (mpi_rank==0) then
-        
-        print *,'*********************************'
-        print *,'******    TIMER CALDYN     ******'
-        do i=0,mpi_size-1
-          print *,'proc',i,' :   Nb Bandes  :',jj_nb_caldyn(i),
-     &            '  : temps moyen :',
-     &             timer_average(jj_nb_caldyn(i),timer_caldyn,i)
-        enddo
-      
-        print *,'*********************************'
-        print *,'******    TIMER VANLEER    ******'
-        do i=0,mpi_size-1
-          print *,'proc',i,' :   Nb Bandes  :',jj_nb_vanleer(i),
-     &            '  : temps moyen :',
-     &             timer_average(jj_nb_vanleer(i),timer_vanleer,i)
-        enddo
-      
-        print *,'*********************************'
-        print *,'******    TIMER DISSIP    ******'
-        do i=0,mpi_size-1
-          print *,'proc',i,' :   Nb Bandes  :',jj_nb_dissip(i),
-     &            '  : temps moyen :',
-     &             timer_average(jj_nb_dissip(i),timer_dissip,i)
-        enddo
-        
-        print *,'*********************************'
-        print *,'******    TIMER PHYSIC    ******'
-        do i=0,mpi_size-1
-          print *,'proc',i,' :   Nb Bandes  :',jj_nb_physic(i),
-     &            '  : temps moyen :',
-     &             timer_average(jj_nb_physic(i),timer_physic,i)
-        enddo
-        
-      endif  
-      CALL barrier
-      print *,'Taille du Buffer MPI (REAL*8)',MaxBufferSize
+         call allgather_timer_average
+         call barrier
+         if (mpi_rank==0) then
+            
+            print *,'*********************************'
+            print *,'******    TIMER CALDYN     ******'
+            do i=0,mpi_size-1
+               print *,'proc',i,' :   Nb Bandes  :',jj_nb_caldyn(i),
+     &              '  : temps moyen :',
+     &              timer_average(jj_nb_caldyn(i),timer_caldyn,i)
+            enddo
+            
+            print *,'*********************************'
+            print *,'******    TIMER VANLEER    ******'
+            do i=0,mpi_size-1
+               print *,'proc',i,' :   Nb Bandes  :',jj_nb_vanleer(i),
+     &              '  : temps moyen :',
+     &              timer_average(jj_nb_vanleer(i),timer_vanleer,i)
+            enddo
+            
+            print *,'*********************************'
+            print *,'******    TIMER DISSIP    ******'
+            do i=0,mpi_size-1
+               print *,'proc',i,' :   Nb Bandes  :',jj_nb_dissip(i),
+     &              '  : temps moyen :',
+     &              timer_average(jj_nb_dissip(i),timer_dissip,i)
+            enddo
+            
+            print *,'*********************************'
+            print *,'******    TIMER PHYSIC    ******'
+            do i=0,mpi_size-1
+               print *,'proc',i,' :   Nb Bandes  :',jj_nb_physic(i),
+     &              '  : temps moyen :',
+     &              timer_average(jj_nb_physic(i),timer_physic,i)
+            enddo
+            
+         endif  
+         CALL barrier
+         print *,'Taille du Buffer MPI (REAL*8)',MaxBufferSize
       print *,'Taille du Buffer MPI utilise (REAL*8)',MaxBufferSize_Used
-      print *, 'Temps total ecoule sur la parallelisation :',DiffTime()
+       print *, 'Temps total ecoule sur la parallelisation :',DiffTime()
       print *, 'Temps CPU ecoule sur la parallelisation :',DiffCpuTime()
-      CALL print_filtre_timer
-c$OMP END MASTER
-      CALL dynredem1_loc("restart.nc",0.0,
-     .                               vcov,ucov,teta,q,masse,ps)
-c$OMP MASTER
-      call fin_getparam
-        call finalize_parallel
-c$OMP END MASTER
-c$OMP BARRIER
-        RETURN
+         CALL print_filtre_timer
+c$OMP END MASTER
+         CALL dynredem1_loc("restart.nc",0.0,
+     .        vcov,ucov,teta,q,masse,ps)
+c$OMP MASTER
+         call fin_getparam
+c$OMP END MASTER
+
+#ifdef INCA
+         call finalize_inca
+#endif
+
+c$OMP MASTER
+         call finalize_parallel
+c$OMP END MASTER
+c$OMP BARRIER
+         RETURN
       ENDIF
       
@@ -1482 +1489 @@
 c$OMP MASTER
               call fin_getparam
+c$OMP END MASTER
+
+#ifdef INCA
+              call finalize_inca
+#endif
+
+c$OMP MASTER
               call finalize_parallel
 c$OMP END MASTER
@@ -1675 +1689 @@
 c$OMP MASTER
       call fin_getparam
+c$OMP END MASTER
+
+#ifdef INCA
+      call finalize_inca
+#endif
+
+c$OMP MASTER
       call finalize_parallel
 c$OMP END MASTER