Ignore:
Timestamp:
Aug 30, 2013, 10:47:10 AM (11 years ago)
Author:
Ehouarn Millour
Message:

Implémentation des sorties XIOS dans LMDZ. Activation via -cpp CPP_XIOS.
ATTENTION: un problème de raccord subsiste en mode MPI !
UG
................................
Adding XIOS output to LMDZ. Activated by the CPP_XIOS key.
WARNING: buggy for now in MPI mode.
UG

Location:
LMDZ5/trunk/libf/dyn3dpar
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dpar/abort_gcm.F

    r1823 r1852  
    1313#endif
    1414      USE parallel_lmdz
     15
     16
     17
     18
    1519#include "iniprint.h"
    1620 
    … …  
    3741c$OMP END MASTER
    3842#endif
     43
     44
     45
    3946c     call histclo(2)
    4047c     call histclo(3)

  • LMDZ5/trunk/libf/dyn3dpar/gcm.F

    r1825 r1852  
    1010#endif
    1111
    12 
    13 #ifdef CPP_XIOS
    14     ! ug Pour les sorties XIOS
    15         USE wxios
    16 #endif
    1712
    1813      USE mod_const_mpi, ONLY: init_const_mpi
    … …  
    192187c   Initialisation partie parallele
    193188c------------------------------------
     189
    194190      CALL init_const_mpi
    195 
    196191      call init_parallel
    197192      call ini_getparam("out.def")
    … …  
    224219!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    225220
    226 #ifdef CPP_XIOS
    227         CALL wxios_init("LMDZ")
    228 #endif
    229221
    230222c-----------------------------------------------------------------------

  • LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

    r1845 r1852  
    2222       USE control_mod
    2323
    24 #ifdef CPP_XIOS
    25     ! ug Pour les sorties XIOS
    26         USE wxios
    27 #endif
    2824      IMPLICIT NONE
    2925
    … …  
    13801376
    13811377c$OMP MASTER
    1382 
    1383 #ifdef CPP_XIOS
    1384     !Fermeture propre de XIOS
    1385       CALL wxios_close()
    1386 #endif
    13871378              call fin_getparam
    13881379              call finalize_parallel

  • LMDZ5/trunk/libf/dyn3dpar/mod_const_mpi.F90

    r1700 r1852  
    5151 
    5252  SUBROUTINE Init_mpi
     53#ifdef CPP_XIOS
     54    USE wxios
     55#endif
    5356  IMPLICIT NONE
    5457#ifdef CPP_MPI
    … …  
    7073      COMM_LMDZ=MPI_COMM_WORLD
    7174      MPI_REAL_LMDZ=MPI_REAL8
     75
     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      CALL wxios_init("LMDZ")
    7386#endif
    74 
     87#endif
    7588   END SUBROUTINE Init_mpi
    7689   

  • LMDZ5/trunk/libf/dyn3dpar/parallel_lmdz.F90

    r1823 r1852  
    199199   
    200200    subroutine Finalize_parallel
     201#ifdef CPP_XIOS
     202    ! ug Pour les sorties XIOS
     203        USE wxios
     204#endif
    201205#ifdef CPP_COUPLE
    202206    use mod_prism_proto
    … …  
    232236#endif
    233237      else
     238#ifdef CPP_XIOS
     239    !Fermeture propre de XIOS
     240      CALL wxios_close()
     241#endif
    234242#ifdef CPP_MPI
    235243         IF (using_mpi) call MPI_FINALIZE(ierr)
Note: See TracChangeset for help on using the changeset viewer.