Changeset 3798 for LMDZ6/branches/Ocean_skin/libf/phylmd/cpl_mod.F90
- Timestamp:
- Jan 11, 2021, 11:24:08 PM (4 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
-
LMDZ6/branches/Ocean_skin/libf/phylmd/cpl_mod.F90
r3767 r3798 167 167 cpl_old_calving=.FALSE. 168 168 CALL getin_p("cpl_old_calving",cpl_old_calving) 169 WRITE(lunout,*)' cpl_old_calving = ', cpl_old_calving 169 170 170 171 … … 265 266 ALLOCATE(cell_area2D(nbp_lon, jj_nb), stat = error) 266 267 sum_error = sum_error + error 267 268 268 269 269 CALL gather_omp(longitude_deg,rlon_mpi) … … 276 276 CALL Grid1DTo2D_mpi(rlat_mpi,lat2D) 277 277 CALL Grid1DTo2D_mpi(cell_area_mpi,cell_area2D) 278 !--the next line is required for lat-lon grid and should have no impact 279 !--for an unstructured grid for which nbp_lon=1 280 !--if north pole in process mpi then divide cell area of pole cell by number of replicates 281 IF (is_north_pole_dyn) cell_area2D(:,1)=cell_area2D(:,1)/FLOAT(nbp_lon) 282 !--if south pole in process mpi then divide cell area of pole cell by number of replicates 283 IF (is_south_pole_dyn) cell_area2D(:,jj_nb)=cell_area2D(:,jj_nb)/FLOAT(nbp_lon) 278 284 mask_calving(:,:,:) = 0 279 285 WHERE ( lat2D >= 40) mask_calving(:,:,1) = 1 … … 303 309 ENDIF 304 310 305 306 311 IF (sum_error /= 0) THEN 307 312 abort_message='Pb allocation variables couplees' … … 374 379 ENDIF ! is_sequential 375 380 376 377 381 !************************************************************************************* 378 382 ! compatibility test
Note: See TracChangeset
for help on using the changeset viewer.