Make ESMF_CONTEXT_PARENT_VM default for ESMF_GridComp creation in generic3g/GenericGridComp.F90 (MAPL3)

[darianboggs]

Types of change(s)

• Bug fix (non-breaking change which fixes an issue)
• New feature (non-breaking change which adds functionality)
• Breaking change (fix or feature that would cause existing functionality to change)
• Trivial change (affects only documentation or cleanup)
• Refactor (no functional changes, no api changes)

Checklist

• Tested this change with a run of GEOSgcm
• Ran the Unit Tests (make tests)

Description

Make ESMF_CONTEXT_PARENT_VM the default ESMF_Context_Flag in create_grid_comp in mapl3g_GenericGridComp (generic3g/GenericGridComp.F90). This makes child components use the parent ESMF_VM by default.

Related Issue

#2948

[tclune]

You missed at least one more in couplers/GenericCoupler.F90. (Does not have petlist, so even easier fix.)

Please do a grep for GridCompCreate (and ignore all MAPL2 instances).

[darianboggs]

I ran this grep yesterday morning:

Apps/Comp_Testing_Driver.F90, "temp_GC = ESMF_GridCompCreate(name=comp_name, _RC)"
Tests/ExtDataDriverGridComp.F90, "cap%gc = ESMF_GridCompCreate(name='ExtData_DriverGridComp', rc = status)"
base/MAPL_CFIO.F90, "!ALT MCFIO%GC = ESMF_GridCompCreate("NULL")"
base/TeX/MAPL_Intro.tex, "GC = ESMF_GridCompCreate(name='ExampleGC', rc=rc)"
docs/user_guide/docs/mapl_core.md, "GC = ESMF_GridCompCreate(name='ExampleGC', rc=rc)"
generic/MAPL_Generic.F90, "child_meta%gridcomp = ESMF_GridCompCreate ( &"
generic/OpenMP_Support.F90, "gc = ESMF_GridCompCreate(name=trim(comp_name), config=CF, petlist=[myPet], &"
generic3g/GenericGridComp.F90, "gridcomp = ESMF_GridCompCreate(name=outer_name(name), petlist=petlist, _RC)"
generic3g/GenericGridComp.F90, "user_gridcomp = ESMF_GridCompCreate(name=name, petlist=petlist, _RC)"
generic3g/couplers/GenericCoupler.F90, "coupler_gridcomp = ESMF_GridCompCreate(name='coupler', _RC)"
generic3g/couplers/esmf-way/GenericCoupler.F90, "gridcomp = ESMF_GridCompCreate(...)"
gridcomps/Cap/MAPL_CapGridComp.F90, "cap%gc = ESMF_GridCompCreate(name=cap_name, config=cap%config, _RC)"
mapl3g/MaplFramework.F90, "gridcomp = ESMF_GridCompCreate(petList=petList, _RC)"
pfunit/ESMF_TestCase.F90, "gc = ESMF_GridCompCreate(petList=[(pet,pet=0,this%getNumPETsRequested()-1)], rc=rc)"

I'll make the change to generic3g/couplers/GenericCoupler.F90

[darianboggs]

Change made

[tclune]

Thx.