Ignore:
Timestamp:
Jan 23, 2019, 11:46:38 AM (5 years ago)
Author:
Laurent Fairhead
Message:

Choosing the right ORCHIDEE interface and some XIOS stuff

Location:
LMDZ6/trunk/libf/phylmd/rrtm
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato1_rrtm.F90

    r3437 r3438  
    167167   
    168168    IF (grid_type==unstructured) THEN
     169#ifdef CPP_XIOS
    169170      IF (is_omp_master) THEN
    170171        ALLOCATE(tauaerstrat_mpi(klon_mpi,klev))
    … …  
    175176      ENDIF
    176177      CALL scatter_omp(tauaerstrat_mpi,tau_aer_strat)
     178#endif
    177179    ELSE 
    178180      CALL scatter(tauaerstrat_mois_glo,tau_aer_strat)

  • LMDZ6/trunk/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

    r3437 r3438  
    282282
    283283      IF (grid_type==unstructured) THEN
     284
     285#ifdef CPP_XIOS
    284286
    285287        IF (is_omp_master) THEN
    … …  
    308310        CALL scatter_omp(cgaerstrat_mpi,cg_aer_strat)
    309311        CALL scatter_omp(taulwaerstrat_mpi,taulw_aer_strat)
     312#endif
    310313      ELSE 
    311314       
Note: See TracChangeset for help on using the changeset viewer.