Ignore:
Timestamp:
Aug 2, 2013, 4:36:53 PM (11 years ago)
Author:
Ehouarn Millour
Message:

Première étape de l'implémentation de XIOS. Modifications isolées dans des flags CPP_XIOS. Sorties opérationnelles (sauf stations et régionalisation) en modes séquentiel et omp, pas mpi.
UG
...........................................
First step of the XIOS implementation. Modifications are confined into CPP_XIOS flags. Output is operationnal (except for stations and regionalization) in sequential and omp modes (not mpi).
UG

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

Legend:

Unmodified
Added
Removed

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

    r1823 r1825  
    88#ifdef CPP_IOIPSL
    99      USE IOIPSL
     10#endif
     11
     12
     13#ifdef CPP_XIOS
     14    ! ug Pour les sorties XIOS
     15        USE wxios
    1016#endif
    1117
    … …  
    212218      call InitComgeomphy
    213219c$OMP END PARALLEL
     220#endif
     221
     222!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     223! Initialisation de XIOS
     224!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     225
     226#ifdef CPP_XIOS
     227        CALL wxios_init("LMDZ")
    214228#endif
    215229

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

    r1823 r1825  
    2222       USE control_mod
    2323
     24#ifdef CPP_XIOS
     25    ! ug Pour les sorties XIOS
     26        USE wxios
     27#endif
    2428      IMPLICIT NONE
    2529
    … …  
    13691373
    13701374c$OMP MASTER
     1375
     1376#ifdef CPP_XIOS
     1377    !Fermeture propre de XIOS
     1378      CALL wxios_close()
     1379#endif
    13711380              call fin_getparam
    13721381              call finalize_parallel
Note: See TracChangeset for help on using the changeset viewer.