Skip to content

Commit 3b6ef9e

Browse files
committed
expose moab-mct grids only when active
if moab coupler instance active, create mct grid too, in debug mode
1 parent 9ded445 commit 3b6ef9e

File tree

1 file changed

+6
-2
lines changed

1 file changed

+6
-2
lines changed

driver-moab/main/seq_frac_mct.F90

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -470,8 +470,12 @@ subroutine seq_frac_init( infodata, &
470470
endif
471471
#ifdef MOABDEBUG
472472
! mblx2id is the id for moab app exposing land cpl
473-
call expose_mct_grid_moab(lnd, mblx2id)
474-
call expose_mct_grid_moab(ice, mbix2id)
473+
if(mblxid > 0) then
474+
call expose_mct_grid_moab(lnd, mblx2id)
475+
endif
476+
if (mbixid > 0 ) then
477+
call expose_mct_grid_moab(ice, mbix2id)
478+
endif
475479
#endif
476480

477481
kk = mct_aVect_indexRA(fractions_l,"lfrin",perrWith=subName)

0 commit comments

Comments
 (0)