fix bug

GEOS-ESM · May 8, 2024 · 68ef003 · 68ef003
1 parent 8c4d272
commit 68ef003
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/gridcomps/History3G/HistoryCollectionGridComp.F90 b/gridcomps/History3G/HistoryCollectionGridComp.F90
@@ -85,7 +85,8 @@ subroutine init(gridcomp, importState, exportState, clock, rc)
       call MAPL_GridCompGet(gridcomp, geom=geom, _RC)
       metadata = bundle_to_metadata(collection_gridcomp%output_bundle, geom, _RC)
       mapl_geom => get_mapl_geom(geom, _RC)
-      collection_gridcomp%writer = make_geom_pfio(metadata, _RC)
+      allocate(collection_gridcomp%writer, source=make_geom_pfio(metadata, rc=status))
+      _VERIFY(STATUS)
       call collection_gridcomp%writer%initialize(metadata, mapl_geom, _RC)
 
       call create_output_alarm(clock, hconfig, trim(name), _RC)