MPAS building in UFSATM! Some more reorganization. Initial infrastruc…

…ture for CCPP. More CMake modifications

CMakeLists.txt

@@ -174,6 +174,12 @@ find_package(bacio 2.4.0 REQUIRED)
 find_package(sp 2.3.3 REQUIRED)
 find_package(w3emc 2.9.2 REQUIRED)
 
+if(MPAS)
+  find_package(PnetCDF REQUIRED COMPONENTS Fortran)
+  find_package(PIO REQUIRED COMPONENTS Fortran C)
+  set(FV3 OFF)
+endif()
+
 # Configure Python
 find_package(Python 3.6 REQUIRED COMPONENTS Interpreter)
 message("Found Python: ${Python_EXECUTABLE}")
@@ -189,13 +195,16 @@ endif()
 ### Atmosphere Components [FV3, MPAS?]
 ### DJS2024: There will be a generalized atmospheric component with multiple
 ###          dycores, not multiple atmospheric components (one for each dycore).
-###          So, - rename the atmospheric component FV3 to UFSATM, then
-###              - if FV3 or MPAS, add_sudirectory(UFSATM)
+###          So, - rename the atmospheric component FV3 to UFSATM or ATM, then
+###              - if FV3 or MPAS, add_sudirectory(UFSATM or ATM)
 ###   
 ###############################################################################
 if(FV3)
   add_subdirectory(FV3)
 endif()
+if (MPAS)
+  add_subdirectory(FV3)
+endif()
 
 ###############################################################################
 ### AQM

driver/UFSDriver.F90

@@ -367,12 +367,12 @@ subroutine SetModelServices(driver, rc)
           end if
 #endif
 #ifdef FRONT_MPAS
-          if (trim(model) == "mpas") then
-            call NUOPC_DriverAddComp(driver, trim(prefix), MPAS_SS, &
-              info=info, petList=petList, comp=comp, rc=rc)
-            if (ChkErr(rc,__LINE__,u_FILE_u)) return
-            found_comp = .true.
-          end if
+!          if (trim(model) == "mpas") then
+!            call NUOPC_DriverAddComp(driver, trim(prefix), MPAS_SS, &
+!              info=info, petList=petList, comp=comp, rc=rc)
+!            if (ChkErr(rc,__LINE__,u_FILE_u)) return
+!            found_comp = .true.
+!          end if
 #endif
 #if defined FRONT_CDEPS_DATM
           if (trim(model) == "datm" ) then