diff --git a/README.rst b/README.rst
index 43311a4..c240025 100644
--- a/README.rst
+++ b/README.rst
@@ -5,6 +5,18 @@ Model for Scale Adaptive River Transport
The Model for Scale Adaptive River Transport, Mosart,
is part of the Community Earth System Model.
+IMPORTANT NOTE: MOSART is Obsolescent!
+
+MOSART is part of CESM3, but is obsolescent.
+
+We do not have support for creating input datasets for MOSART and
+as such can NOT use MOSART for Paleo work.
+
+Longer term MOSART will be removed in future versions of CESM and the new model
+mizuRoute will be used for Paleo work as well as present day.
+It's also possible that external collaborators will support the use of MOSART
+for present day climate even as mizuRoute becomes the default model for CESM.
+
See the CESM web site for documentation and information:
http://www.cesm.ucar.edu
diff --git a/cime_config/config_compsets.xml b/cime_config/config_compsets.xml
index 2e0d1e2..bcdb077 100644
--- a/cime_config/config_compsets.xml
+++ b/cime_config/config_compsets.xml
@@ -37,8 +37,9 @@
+
R2000MOSART
- 2000_SATM_DLND%LCPL_SICE_SOCN_MIZUROUTE_SGLC_SWAV
+ 2000_SATM_DLND%LCPL_SICE_SOCN_MOSART_SGLC_SWAV
diff --git a/cime_config/testdefs/testlist_mosart.xml b/cime_config/testdefs/testlist_mosart.xml
index 168d47b..ce171cf 100644
--- a/cime_config/testdefs/testlist_mosart.xml
+++ b/cime_config/testdefs/testlist_mosart.xml
@@ -1,27 +1,20 @@
-
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
+
@@ -30,28 +23,30 @@
-
+
+
-
+
-
+
-
+
+
@@ -59,27 +54,32 @@
-
+
-
+
-
+
+
+
+
+
+
-
+
@@ -89,36 +89,40 @@
-
+
+
-
+
+
+
-
+
+
-
+
-
+
diff --git a/src/cpl/nuopc/rof_import_export.F90 b/src/cpl/nuopc/rof_import_export.F90
index 80cc7c7..08dbc60 100644
--- a/src/cpl/nuopc/rof_import_export.F90
+++ b/src/cpl/nuopc/rof_import_export.F90
@@ -113,8 +113,10 @@ subroutine advertise_fields(gcomp, flds_scalar_name, rc)
call fldlist_add(fldsToRof_num, fldsToRof, 'Flrl_rofsub')
call fldlist_add(fldsToRof_num, fldsToRof, 'Flrl_rofi')
call fldlist_add(fldsToRof_num, fldsToRof, 'Flrl_irrig')
- call fldlist_add(fldsToRof_num, fldsToRof, 'Fgrg_rofl') ! liq runoff from glc
- call fldlist_add(fldsToRof_num, fldsToRof, 'Fgrg_rofi') ! ice runoff from glc
+ if ( ctl%rof_from_glc ) then
+ call fldlist_add(fldsToRof_num, fldsToRof, 'Fgrg_rofl') ! liq runoff from glc
+ call fldlist_add(fldsToRof_num, fldsToRof, 'Fgrg_rofi') ! ice runoff from glc
+ end if
do n = 1,fldsToRof_num
call NUOPC_Advertise(importState, standardName=fldsToRof(n)%stdname, &
diff --git a/src/riverroute/mosart_control_type.F90 b/src/riverroute/mosart_control_type.F90
index 672613f..095d1f1 100644
--- a/src/riverroute/mosart_control_type.F90
+++ b/src/riverroute/mosart_control_type.F90
@@ -990,10 +990,12 @@ subroutine init_decomp(this, locfn, decomp_option, use_halo_option, &
endif
pid = max(pid,0)
pid = min(pid,npes-1)
+#ifndef NDEBUG
if (iam == pid) then
write(iulog,'(2a,i9,a,i9,a,i9,a,i9)')' mosart decomp info',&
' proc = ',iam,' begr = ',begr,' endr = ',endr,' numr = ',lnumr
endif
+#endif
call mpi_barrier(mpicom_rof,ier)
enddo