MAPL_StateAdd is not yet available, switched to ESMF_StateAdd

Author: pchakraborty

ESMF/GOCART2G_GridComp/GOCART2G_GridCompMod.F90

@@ -18,7 +18,7 @@ module GOCART2G_GridCompMod
    use mapl3g_RestartModes, only: MAPL_RESTART_SKIP
    use mapl3g_VerticalStaggerLoc, only: VERTICAL_STAGGER_NONE, VERTICAL_STAGGER_CENTER, VERTICAL_STAGGER_EDGE
    use mapl3g_FieldBundle_API, only: MAPL_FieldBundleAdd
-   use mapl3g_State_API, only: MAPL_StateGetPointer, MAPL_StateAdd
+   use mapl3g_State_API, only: MAPL_StateGetPointer
    use mapl3g_Geom_API, only: MAPL_GridGet
    use mapl3g_UngriddedDim, only: UngriddedDim
    use pflogger, only: logger_t => logger
@@ -1213,7 +1213,7 @@ subroutine serialize_bundle(state, rc)
 
       ! Create empty ESMF_FieldBundle to add Children's aerosol fields to
       bundle = ESMF_FieldBundleCreate(name="serialized_aerosolBundle", _RC)
-      call MAPL_StateAdd(state, [bundle], _RC)
+      call ESMF_StateAdd(state, [bundle], _RC)
 
       do i = 1, n
          if (itemTypes(i) /= ESMF_STATEITEM_STATE) cycle ! exclude non-states

ESMF/Shared/Chem_AeroGeneric.F90

@@ -16,7 +16,6 @@ module  Chem_AeroGeneric
    use mapl3g_Field_API, only: MAPL_FieldGet, MAPL_FieldCreate
    use mapl3g_FieldInfo, only: FieldInfoSetInternal
    use mapl3g_FieldBundle_API, only: MAPL_FieldBundleAdd
-   use mapl3g_State_API, only: MAPL_StateAdd
    use mapl3g_VerticalStaggerLoc, only: VerticalStaggerLoc, VERTICAL_STAGGER_EDGE, VERTICAL_STAGGER_CENTER
    use mapl3g_UngriddedDims, only: UngriddedDims
    ! USE Chem_MieMod2G
@@ -87,12 +86,12 @@ subroutine add_aero(state, label, label2, geom, km, typekind, ptr, rc)
                  num_levels=km, &
                  vert_staggerloc=VERTICAL_STAGGER_CENTER, _RC)
          end if
-         call MAPL_StateAdd(state, [field], _RC)
+         call ESMF_StateAdd(state, [field], _RC)
       end if
 
       ! if (field_name /= "") then
       !     field = ptr
-      !     call MAPL_StateAdd(state, [field], _RC)
+      !     call ESMF_StateAdd(state, [field], _RC)
       ! end if
 
       _RETURN(_SUCCESS)