Changeset 3436 for LMDZ6/trunk/libf/phylmd/readaerosolstrato.F90
- Timestamp:
- Jan 22, 2019, 5:26:21 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/readaerosolstrato.F90
r3435 r3436 15 15 USE aero_mod 16 16 USE dimphy 17 #ifdef CPP_XIOS 17 18 USE xios 18 19 #endif 19 20 implicit none 20 21 … … 143 144 144 145 IF (grid_type==unstructured) THEN 146 #ifdef CPP_XIOS 145 147 IF (is_omp_master) THEN 146 148 CALL xios_send_field("taustrat_in",tauaerstrat_mois) … … 151 153 ENDIF 152 154 CALL scatter_omp(tau_aer_strat_mpi,tau_aer_strat) 155 #endif 153 156 ELSE 154 157 !--scatter on all proc
Note: See TracChangeset
for help on using the changeset viewer.