Merge pull request #1006 from GEOS-ESM/feature/wjiang/clear_message

send clear message to log when mk_lakelandicesaltwater failed
GEOS-ESM · Sep 28, 2024 · 5210f4f · 5210f4f
2 parents 24de04c + 626f05f
commit 5210f4f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/...EOSphysics_GridComp/GEOSsurface_GridComp/Utils/mk_restarts/mk_LakeLandiceSaltRestarts.F90 b/...EOSphysics_GridComp/GEOSsurface_GridComp/Utils/mk_restarts/mk_LakeLandiceSaltRestarts.F90
@@ -88,6 +88,9 @@ program mk_LakeLandiceSaltRestarts
 
      call InFmt%open(InRestart,pFIO_READ,rc=rc)
      InCfg = InFmt%read(rc=rc)
+     i = Incfg%get_dimension('tile', _RC)
+     _ASSERT( i == itiles, "mk_LakeLandiceSaltRestarts: Number of tiles in restart file is inconsistent with that in tile file.")
+
      call MAPL_IOChangeRes(InCfg,OutCfg,(/'tile'/),(/otiles/),rc=rc)
 
      i = index(InRestart,'/',back=.true.)