Changeset 3790 for LMDZ6/trunk
- Timestamp:
- Dec 21, 2020, 4:43:24 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cpl_mod.F90
r3788 r3790 242 242 sum_error = sum_error + error 243 243 244 245 244 CALL gather_omp(longitude_deg,rlon_mpi) 246 245 CALL gather_omp(latitude_deg,rlat_mpi) … … 252 251 CALL Grid1DTo2D_mpi(rlat_mpi,lat2D) 253 252 CALL Grid1DTo2D_mpi(cell_area_mpi,cell_area2D) 253 !--the next line is required for lat-lon grid and should have no impact 254 !--for an unstructured grid for which nbp_lon=1 255 !--if north pole in process mpi then divide cell area of pole cell by number of replicates 256 IF (is_north_pole_dyn) cell_area2D(:,1)=cell_area2D(:,1)/FLOAT(nbp_lon) 257 !--if south pole in process mpi then divide cell area of pole cell by number of replicates 258 IF (is_south_pole_dyn) cell_area2D(:,jj_nb)=cell_area2D(:,jj_nb)/FLOAT(nbp_lon) 254 259 mask_calving(:,:,:) = 0 255 260 WHERE ( lat2D >= 40) mask_calving(:,:,1) = 1 … … 279 284 ENDIF 280 285 281 282 286 IF (sum_error /= 0) THEN 283 287 abort_message='Pb allocation variables couplees' … … 350 354 ENDIF ! is_sequential 351 355 352 353 356 !************************************************************************************* 354 357 ! compatibility test
Note: See TracChangeset
for help on using the changeset viewer.