Use the NUOPC_DriverAddGridCompPtr work-around under IFX from the ESMX

level.
esmf-org · Aug 18, 2023 · fb0b100 · fb0b100
1 parent 5fdc7d0
commit fb0b100
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/addon/ESMX/Driver/ESMX_Driver.F90 b/src/addon/ESMX/Driver/ESMX_Driver.F90
@@ -261,13 +261,24 @@ subroutine SetModelServices(driver, rc)
 
       if (inCompDef) then
         ! add child component with SetVM and SetServices in CompDef
+#ifdef __INTEL_LLVM_COMPILER
+!TODO: remove once IFX works correctly and does not require this work-around
+        call NUOPC_DriverAddGridCompPtr(driver, trim(compLabel), config=config, &
+          compSetServicesRoutine=CompDef(j)%ssPtr, compSetVMRoutine=CompDef(j)%svPtr, &
+          info=info, petList=petList, comp=comp, rc=rc)
+        if (ESMF_LogFoundError(rcToCheck=rc, &
+          msg="Unable to add component '"//trim(compLabel)// &
+            "' to driver via Fortran module.", &
+          line=__LINE__, file=FILENAME)) return  ! bail out
+#else
         call NUOPC_DriverAddComp(driver, trim(compLabel), config=config, &
           compSetServicesRoutine=CompDef(j)%ssPtr, compSetVMRoutine=CompDef(j)%svPtr, &
           info=info, petList=petList, comp=comp, rc=rc)
         if (ESMF_LogFoundError(rcToCheck=rc, &
           msg="Unable to add component '"//trim(compLabel)// &
             "' to driver via Fortran module.", &
           line=__LINE__, file=FILENAME)) return  ! bail out
+#endif
       else
         ! add child component with SetVM and SetServices in shared object
         call NUOPC_DriverAddComp(driver, trim(compLabel), config=config, &