Ignore:
Timestamp:
Aug 30, 2013, 3:59:10 PM (11 years ago)
Author:
Ehouarn Millour
Message:

Implémentation de XIOS dans dyn3dmem.
UG
................................
XIOS implementation in dyn3dmem.
UG

Location:
LMDZ5/trunk/libf/dyn3dmem
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3dmem/mod_const_mpi.F90

    r1700 r1856  
    2222    INCLUDE 'mpif.h'
    2323#endif
     24
    2425    INTEGER             :: ierr
    2526    INTEGER             :: comp_id
     
    5152 
    5253  SUBROUTINE Init_mpi
     54#ifdef CPP_XIOS
     55    USE wxios
     56#endif
    5357  IMPLICIT NONE
    5458#ifdef CPP_MPI
     
    7074      COMM_LMDZ=MPI_COMM_WORLD
    7175      MPI_REAL_LMDZ=MPI_REAL8
     76!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     77! Initialisation de XIOS
     78!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     79#ifdef CPP_XIOS
     80      CALL wxios_init("LMDZ", outcom=COMM_LMDZ)
     81#endif
    7282!$OMP END MASTER
     83#else
     84#ifdef CPP_XIOS
     85!$OMP MASTER
     86      CALL wxios_init("LMDZ")
     87!$OMP END MASTER
     88#endif
    7389#endif
    7490
  • LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90

    r1823 r1856  
    367367   
    368368    subroutine Finalize_parallel
     369#ifdef CPP_XIOS
     370    ! ug Pour les sorties XIOS
     371        USE wxios
     372#endif
    369373#ifdef CPP_COUPLE
    370374    use mod_prism_proto
     
    400404#endif
    401405      else
     406#ifdef CPP_XIOS
     407    !Fermeture propre de XIOS
     408      CALL wxios_close()
     409#endif
    402410#ifdef CPP_MPI
    403411         IF (using_mpi) call MPI_FINALIZE(ierr)
Note: See TracChangeset for help on using the changeset viewer.