We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9ded445 commit 3b6ef9eCopy full SHA for 3b6ef9e
driver-moab/main/seq_frac_mct.F90
@@ -470,8 +470,12 @@ subroutine seq_frac_init( infodata, &
470
endif
471
#ifdef MOABDEBUG
472
! 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)
+ if(mblxid > 0) then
+ call expose_mct_grid_moab(lnd, mblx2id)
475
+ endif
476
+ if (mbixid > 0 ) then
477
+ call expose_mct_grid_moab(ice, mbix2id)
478
479
#endif
480
481
kk = mct_aVect_indexRA(fractions_l,"lfrin",perrWith=subName)
0 commit comments