- Timestamp:
- Oct 19, 2023, 4:02:57 PM (12 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/readaerosolstrato.F90
r4179 r4727 16 16 USE dimphy 17 17 USE print_control_mod, ONLY: prt_level,lunout 18 #ifdef CPP_XIOS 19 USE xios 20 #endif 18 USE lmdz_xios 21 19 implicit none 22 20 … … 148 146 149 147 IF (grid_type==unstructured) THEN 150 #ifdef CPP_XIOS151 148 IF (is_omp_master) THEN 152 149 CALL xios_send_field("taustrat_in",tauaerstrat_mois) … … 157 154 ENDIF 158 155 CALL scatter_omp(tau_aer_strat_mpi,tau_aer_strat) 159 #endif160 156 ELSE 161 157 !--scatter on all proc
Note: See TracChangeset
for help on using the changeset viewer.