update X configuration so all components are active, tested with ERS.…

…f19_g16.X.yellowstone_intel
ESMCI · May 20, 2017 · dc034f0 · dc034f0
1 parent 14909ae
commit dc034f0
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 3 deletions.
diff --git a/config/cesm/config_grids.xml b/config/cesm/config_grids.xml
@@ -41,6 +41,9 @@
       <grid name="wav"	  compset="SWAV"  >null</grid>
       <grid name="wav"	  compset="DWAV"  >ww3a</grid>
       <grid name="wav"	  compset="WW3"	  >ww3a</grid>
+      <grid name="rof"    compset="XROF"  >r05</grid>
+      <grid name="glc"    compset="XGLC"  >gland4</grid>
+      <grid name="wav"    compset="XWAV"  >ww3a</grid>
     </model_grid_defaults>
 
     <model_grid alias="g16_g16" compset="DATM.+DROF">
@@ -1154,7 +1157,7 @@
     </domain>
 
     <domain name="gland4">
-      <nx>376</nx> <ny>701</ny>
+      <nx>416</nx> <ny>704</ny>
       <desc>4-km Greenland grid, for use with the glissade dycore</desc>
     </domain>
 

diff --git a/src/components/xcpl_comps/xshare/dead_mct_mod.F90 b/src/components/xcpl_comps/xshare/dead_mct_mod.F90
@@ -18,6 +18,7 @@ module dead_mct_mod
   use shr_const_mod		, only : shr_const_pi
   use seq_timemgr_mod		, only : seq_timemgr_EClockGetData
   use shr_mpi_mod		, only : shr_mpi_bcast
+
   implicit none
   private
   save
@@ -448,15 +449,15 @@ subroutine dead_run_mct( model, EClock, cdata, x2d, d2x)
     nflds_d2x = mct_avect_nRattr(d2x)
     nflds_x2d = mct_avect_nRattr(x2d)
 
-    ! PACK
+    ! UNPACK
 
 !    do nf=1,nflds_x2d
 !       do n=1,lsize
 !          ?? = x2d%rAttr(nf,n)
 !       enddo
 !    enddo
 
-    ! UNPACK
+    ! PACK
     selectcase(model)
     case('atm')
        gbuf => gbuf_atm
@@ -516,6 +517,13 @@ subroutine dead_run_mct( model, EClock, cdata, x2d, d2x)
     case('ice')
        ki = mct_aVect_indexRA(d2x,"Si_ifrac",perrWith=subname)
        d2x%rAttr(ki,:) = min(1.0_R8,max(0.0_R8,d2x%rAttr(ki,:)))
+    case('glc')
+       ki = mct_aVect_indexRA(d2x,"Sg_icemask",perrWith=subname)
+       d2x%rAttr(ki,:) = 1.0_R8
+       ki = mct_aVect_indexRA(d2x,"Sg_icemask_coupled_fluxes",perrWith=subname)
+       d2x%rAttr(ki,:) = 1.0_R8
+       ki = mct_aVect_indexRA(d2x,"Sg_ice_covered",perrWith=subname)
+       d2x%rAttr(ki,:) = 1.0_R8
     case('atm')
        ! Set time of next radiadtion computation
        call seq_timemgr_EClockGetData (EClock, next_cday=nextsw_cday)