From 4033291128e4ec4d7fc697ae59797f08f835ac18 Mon Sep 17 00:00:00 2001 From: Tom Clune Date: Mon, 11 May 2026 16:09:02 -0400 Subject: [PATCH] Migrate MAPL2/MAPL_BaseMod to source modules in GEOS_Shared (MAPL#4857) - windfix.F90: use MAPL2, only: MAPL_GridGet -> use mapl_MaplGrid, only: MAPL_GridGet Refs GEOS-ESM/GMAO_Shared#428 --- CHANGELOG.md | 1 + GEOS_Shared/windfix.F90 | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 36ba0aa6..8358d2c8 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -11,6 +11,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Changed +- Migrate `GEOS_Shared/windfix.F90` from `use MAPL2, only: MAPL_GridGet` to `use mapl_MaplGrid, only: MAPL_GridGet` (MAPL#4857) - Migrate `OVP.F90`: replace `MAPL_PackTime` calls with `MAPL_PackedTimeCreate` from `MAPL_PackedTimeMod` - Migrate `GEOS_TopoGet.F90` from bare `use MAPL2` to `use MAPL` + `use MAPL2, only:` for remaining MAPL2-only symbols - Migrate `GEOS_TopoGet.F90` from BinIO (`GETFILE`/`FREE_FILE`) to NetCDF4 via `Netcdf4_Fileformatter`; binary/ASCII topo files are no longer supported diff --git a/GEOS_Shared/windfix.F90 b/GEOS_Shared/windfix.F90 index cd2c7e83..0e0f8ba0 100644 --- a/GEOS_Shared/windfix.F90 +++ b/GEOS_Shared/windfix.F90 @@ -7,7 +7,7 @@ subroutine windfix ( ua,va,plea, & use ESMF use MAPL, MAPL_GridGet_UNUSED => MAPL_GridGet - use MAPL2, only: MAPL_GridGet + use mapl_MaplGrid, only: MAPL_GridGet implicit none