Skip to content

Commit bc67638

Browse files
committed
Initialize ghost grid cells
1 parent 86d586c commit bc67638

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

components/elm/src/main/elm_initializeMod.F90

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -229,11 +229,15 @@ subroutine initialize1( )
229229
'Unsupported domain_decomp_type = ' // trim(domain_decomp_type))
230230
end select
231231

232+
#ifdef HAVE_MOAB
233+
call domainlateral_init(ldomain_lateral)
234+
#else
232235
if (lateral_connectivity) then
233236
call domainlateral_init(ldomain_lateral, cellsOnCell, edgesOnCell, &
234237
nEdgesOnCell, areaCell, dcEdge, dvEdge, &
235238
nCells_loc, nEdges_loc, maxEdges)
236239
endif
240+
#endif
237241

238242
! *** Get JUST gridcell processor bounds ***
239243
! Remaining bounds (landunits, columns, patches) will be determined
@@ -421,6 +425,7 @@ subroutine initialize1( )
421425
! This is needed here for the following call to decompInit_glcp
422426

423427
call initGridCells()
428+
call initGhostGridCells()
424429

425430
! Set global seg maps for gridcells, topounits, landlunits, columns and patches
426431
!if(max_topounits > 1) then

0 commit comments

Comments
 (0)