Ignore:
Timestamp:
Jan 22, 2019, 5:26:21 PM (5 years ago)
Author:
Ehouarn Millour
Message:

Additional modifications wrt previous commit to enable working without XIOS.
EM+LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/readaerosolstrato.F90

    r3435 r3436  
    1515    USE aero_mod
    1616    USE dimphy
     17#ifdef CPP_XIOS
    1718    USE xios
    18 
     19#endif
    1920    implicit none
    2021
    … …  
    143144
    144145    IF (grid_type==unstructured) THEN
     146#ifdef CPP_XIOS
    145147      IF (is_omp_master) THEN
    146148        CALL xios_send_field("taustrat_in",tauaerstrat_mois)
    … …  
    151153      ENDIF
    152154      CALL scatter_omp(tau_aer_strat_mpi,tau_aer_strat)
     155#endif
    153156    ELSE 
    154157!--scatter on all proc
Note: See TracChangeset for help on using the changeset viewer.