Ignore:
Timestamp:
Jan 23, 2015, 3:01:47 PM (9 years ago)
Author:
acozic
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F

    r2180 r2185  
    13971397      IF (itau==itaumax) then
    13981398c$OMP MASTER
    1399             call allgather_timer_average
    1400       call barrier
    1401       if (mpi_rank==0) then
    1402        
    1403         print *,'*********************************'
    1404         print *,'******    TIMER CALDYN     ******'
    1405         do i=0,mpi_size-1
    1406           print *,'proc',i,' :   Nb Bandes  :',jj_nb_caldyn(i),
    1407      &            '  : temps moyen :',
    1408      &             timer_average(jj_nb_caldyn(i),timer_caldyn,i)
    1409         enddo
    1410      
    1411         print *,'*********************************'
    1412         print *,'******    TIMER VANLEER    ******'
    1413         do i=0,mpi_size-1
    1414           print *,'proc',i,' :   Nb Bandes  :',jj_nb_vanleer(i),
    1415      &            '  : temps moyen :',
    1416      &             timer_average(jj_nb_vanleer(i),timer_vanleer,i)
    1417         enddo
    1418      
    1419         print *,'*********************************'
    1420         print *,'******    TIMER DISSIP    ******'
    1421         do i=0,mpi_size-1
    1422           print *,'proc',i,' :   Nb Bandes  :',jj_nb_dissip(i),
    1423      &            '  : temps moyen :',
    1424      &             timer_average(jj_nb_dissip(i),timer_dissip,i)
    1425         enddo
    1426        
    1427         print *,'*********************************'
    1428         print *,'******    TIMER PHYSIC    ******'
    1429         do i=0,mpi_size-1
    1430           print *,'proc',i,' :   Nb Bandes  :',jj_nb_physic(i),
    1431      &            '  : temps moyen :',
    1432      &             timer_average(jj_nb_physic(i),timer_physic,i)
    1433         enddo
    1434        
    1435       endif 
    1436       CALL barrier
    1437       print *,'Taille du Buffer MPI (REAL*8)',MaxBufferSize
     1399         call allgather_timer_average
     1400         call barrier
     1401         if (mpi_rank==0) then
     1402           
     1403            print *,'*********************************'
     1404            print *,'******    TIMER CALDYN     ******'
     1405            do i=0,mpi_size-1
     1406               print *,'proc',i,' :   Nb Bandes  :',jj_nb_caldyn(i),
     1407     &              '  : temps moyen :',
     1408     &              timer_average(jj_nb_caldyn(i),timer_caldyn,i)
     1409            enddo
     1410           
     1411            print *,'*********************************'
     1412            print *,'******    TIMER VANLEER    ******'
     1413            do i=0,mpi_size-1
     1414               print *,'proc',i,' :   Nb Bandes  :',jj_nb_vanleer(i),
     1415     &              '  : temps moyen :',
     1416     &              timer_average(jj_nb_vanleer(i),timer_vanleer,i)
     1417            enddo
     1418           
     1419            print *,'*********************************'
     1420            print *,'******    TIMER DISSIP    ******'
     1421            do i=0,mpi_size-1
     1422               print *,'proc',i,' :   Nb Bandes  :',jj_nb_dissip(i),
     1423     &              '  : temps moyen :',
     1424     &              timer_average(jj_nb_dissip(i),timer_dissip,i)
     1425            enddo
     1426           
     1427            print *,'*********************************'
     1428            print *,'******    TIMER PHYSIC    ******'
     1429            do i=0,mpi_size-1
     1430               print *,'proc',i,' :   Nb Bandes  :',jj_nb_physic(i),
     1431     &              '  : temps moyen :',
     1432     &              timer_average(jj_nb_physic(i),timer_physic,i)
     1433            enddo
     1434           
     1435         endif 
     1436         CALL barrier
     1437         print *,'Taille du Buffer MPI (REAL*8)',MaxBufferSize
    14381438      print *,'Taille du Buffer MPI utilise (REAL*8)',MaxBufferSize_Used
    1439       print *, 'Temps total ecoule sur la parallelisation :',DiffTime()
     1439       print *, 'Temps total ecoule sur la parallelisation :',DiffTime()
    14401440      print *, 'Temps CPU ecoule sur la parallelisation :',DiffCpuTime()
    1441       CALL print_filtre_timer
    1442 c$OMP END MASTER
    1443       CALL dynredem1_loc("restart.nc",0.0,
    1444      .                               vcov,ucov,teta,q,masse,ps)
    1445 c$OMP MASTER
    1446       call fin_getparam
    1447         call finalize_parallel
    1448 c$OMP END MASTER
    1449 c$OMP BARRIER
    1450         RETURN
     1441         CALL print_filtre_timer
     1442c$OMP END MASTER
     1443         CALL dynredem1_loc("restart.nc",0.0,
     1444     .        vcov,ucov,teta,q,masse,ps)
     1445c$OMP MASTER
     1446         call fin_getparam
     1447c$OMP END MASTER
     1448
     1449#ifdef INCA
     1450         call finalize_inca
     1451#endif
     1452
     1453c$OMP MASTER
     1454         call finalize_parallel
     1455c$OMP END MASTER
     1456c$OMP BARRIER
     1457         RETURN
    14511458      ENDIF
    14521459     
     
    14821489c$OMP MASTER
    14831490              call fin_getparam
     1491c$OMP END MASTER
     1492
     1493#ifdef INCA
     1494              call finalize_inca
     1495#endif
     1496
     1497c$OMP MASTER
    14841498              call finalize_parallel
    14851499c$OMP END MASTER
     
    16751689c$OMP MASTER
    16761690      call fin_getparam
     1691c$OMP END MASTER
     1692
     1693#ifdef INCA
     1694      call finalize_inca
     1695#endif
     1696
     1697c$OMP MASTER
    16771698      call finalize_parallel
    16781699c$OMP END MASTER
Note: See TracChangeset for help on using the changeset viewer.