Change how mb_scm_land is set

Use single_column and scm_multcol to determine if
mb_scm_land should be set.  DP case will not have
land_nx=land_ny=1

Author: rljacob

driver-moab/main/cplcomp_exchange_mod.F90

@@ -1066,8 +1066,7 @@ subroutine cplcomp_moab_Init(infodata,comp)
       character(CXX)           :: tagname
       character(CXX)           :: newlist
       integer                  nvert(3), nvise(3), nbl(3), nsurf(3), nvisBC(3)
-      logical                  :: rof_present, lnd_prognostic
-      integer                  :: land_nx, land_ny ! try to identify if scm case; then land mesh will be migrated, not read 
+      logical                  :: rof_present, lnd_prognostic, single_column, scm_multcols
       real(r8),    allocatable    :: tagValues(:) ! used for setting aream tags for atm domain read case
       integer                     :: arrsize ! for the size of tagValues
       type(mct_list)             :: temp_list
@@ -1559,9 +1558,9 @@ subroutine cplcomp_moab_Init(infodata,comp)
          call seq_comm_getinfo(cplid ,mpigrp=mpigrp_cplid)  ! receiver group
          call seq_comm_getinfo(id_old,mpigrp=mpigrp_old)   !  component group pes
          call seq_infodata_GetData(infodata,rof_present=rof_present, lnd_prognostic=lnd_prognostic)
-         call seq_infodata_GetData(infodata,lnd_nx=land_nx, lnd_ny=land_ny)
-
-         if (land_nx .eq. 1 .and. land_ny .eq.1 ) then
+         call seq_infodata_GetData(infodata,single_column=single_column, &
+	 scm_multcols=scm_multcols)
+         if (single_column .or. scm_multcols) then
             ! turn on mb_scm_land
             mb_scm_land = .true. ! we identified a scm case for land, we will migrate mesh, not read 
                                    ! the domain file anymore