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