Changeset 2542 for LMDZ5/branches/testing/libf/phylmd/readaerosolstrato.F90
- Timestamp:
- Jun 6, 2016, 4:04:57 PM (8 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2489-2527,2529-2532,2534-2541
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/readaerosolstrato.F90
r2408 r2542 9 9 grid2dto1d_glo 10 10 USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root 11 USE mod_phys_lmdz_omp_data, ONLY : is_omp_root 11 12 USE mod_phys_lmdz_para 12 13 USE phys_state_var_mod … … 64 65 IF (debut.OR.mth_cur.NE.mth_pre) THEN 65 66 66 IF (is_mpi_root) THEN 67 !--only root reads 68 IF (is_mpi_root.AND.is_omp_root) THEN 67 69 68 70 IF (nbands.NE.2) THEN … … 128 130 CALL grid2dTo1d_glo(tauaerstrat_mois,tauaerstrat_mois_glo) 129 131 130 ENDIF !--is_mpi_root 132 ENDIF !--is_mpi_root and is_omp_root 133 134 !$OMP BARRIER 131 135 132 136 !--scatter on all proc … … 136 140 mth_pre=mth_cur 137 141 ! 138 IF (is_mpi_root ) THEN142 IF (is_mpi_root.AND.is_omp_root) THEN 139 143 ! 140 144 DEALLOCATE(tauaerstrat) … … 142 146 DEALLOCATE(tauaerstrat_mois_glo) 143 147 ! 144 ENDIF !-is_mpi_root 148 ENDIF !-is_mpi_root and is_omp_root 149 150 !$OMP BARRIER 145 151 146 152 ENDIF !--debut ou nouveau mois
Note: See TracChangeset
for help on using the changeset viewer.