Added return to fetch_data

.circleci/config.yml

@@ -176,7 +176,8 @@ workflows:
           fixture_branch: feature/mathomp4/mapldevelop
           checkout_mapl_branch: true
           mepodevelop: false
-          rebuild_procs: 1
+          rebuild_procs: 4
+          build_type: Release
 
   build-and-publish-docker:
     when:
@@ -228,8 +229,8 @@ workflows:
           baselibs_version: *baselibs_version
           container_name: mapl
           mpi_name: openmpi
-          mpi_version: 5.0.2
+          mpi_version: 5.0.5
           compiler_name: gcc
-          compiler_version: 13.2.0
+          compiler_version: 14.2.0
           image_name: geos-env-mkl
           tag_build_arg_name: *tag_build_arg_name

CHANGELOG.md

@@ -9,12 +9,18 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Added
 
+- Added macro _RETURN(_SUCCESS) to fetch_data
 - Allow update offsets of ±timestep in ExtData2G
 - Minor revision (and generalization) of grid-def for GSI purposes
 - Trajectory sampler: fix a bug when group_name does not exist in netCDF file and a bug that omitted the first time point
+- Allow lat-lon grid factory to detect and use CF compliant lat-lon bounds in a file when making a grid
+- PFIO/Variable class, new procedures to retrieve string/reals/int attributes from a variable
 
 ### Changed
 
+- Change minimum CMake version to 3.24
+  - This is needed for f2py and meson support
+- Refactored tableEnd check
 - Added commandline options to `checkpoint_benchmark.x` and `restart_benchmark.x` to allow for easier testing of different configurations. Note that the old configuration file style of input is allowed via the `--config_file` option (which overrides any other command line options)
 - Update ESMF version for Baselibs to match that of Spack for consistency
 - Update `components.yaml`
@@ -27,9 +33,12 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
       - GSL 2.8
       - jpeg 9f
       - Various build fixes
-  - ESMA_cmake v3.52.0
+  - ESMA_cmake v3.55.0
     - Fixes for using MAPL as a library in spack builds of GEOSgcm
     - Various backports from v4
+    - Code for capturing `mepo status` output
+    - Fixes for f2py and meson (NOTE: Requires CMake minimum version of 3.24 in project for complete functionality)
+    - Fixes for `MPI_STACK` code run multiple times
 - Updates to CI
   - Use v7.27.0 Baselibs
   - Use GCC 14 for GNU tests
@@ -38,11 +47,18 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ### Fixed
 
 - Fixed issue of some Baselibs builds appearing to support zstandard. This is not possible due to Baselibs building HDF5 and netCDF as static libraries
+- Fixed a bug where the periodicity around the earth of the lat-lon grid was not being set properly when grid did not span from pole to pole
 
 ### Removed
 
 ### Deprecated
 
+## [2.50.3] - 2024-12-02
+
+### Fixed
+
+- Fixed bug where c null character is not removed from end of string when reading netcdf attribute in NetCDF4\_FileFormatter.F90
+
 ## [2.50.2] - 2024-10-30
 
 ### Fixed

CMakeLists.txt

@@ -1,4 +1,4 @@
-cmake_minimum_required (VERSION 3.23)
+cmake_minimum_required (VERSION 3.24)
 
 get_property(is_multi_config GLOBAL PROPERTY GENERATOR_IS_MULTI_CONFIG)
 if(NOT is_multi_config AND NOT (CMAKE_BUILD_TYPE OR DEFINED ENV{CMAKE_BUILD_TYPE}))
@@ -8,7 +8,7 @@ endif ()
 
 project (
   MAPL
-  VERSION 2.50.2
+  VERSION 2.50.3
   LANGUAGES Fortran CXX C)  # Note - CXX is required for ESMF
 
 # Set the possible values of build type for cmake-gui

base/FileMetadataUtilities.F90

@@ -116,30 +116,15 @@ function get_var_attr_real32(this,var_name,attr_name,rc) result(attr_real32)
       character(len=*), intent(in) :: attr_name
       integer, optional, intent(out) :: rc
 
-      real(REAL32) :: tmp(1)
-      real(REAL64) :: tmpd(1)
       integer :: status
       character(:), allocatable :: fname
-      type(Attribute), pointer :: attr
       type(Variable), pointer :: var
-      class(*), pointer :: attr_val(:)
 
       fname = this%get_file_name(_RC)
       var => this%get_variable(var_name,_RC)
       _ASSERT(associated(var),"no variable named "//var_name//" in "//fname)
-      attr => var%get_attribute(attr_name,_RC)
-      _ASSERT(associated(attr),"no attribute named "//attr_name//" in "//var_name//" in "//fname)
-      attr_val => attr%get_values()
-      select type(attr_val)
-      type is(real(kind=REAL32))
-         tmp = attr_val
-         attr_real32 = tmp(1)
-      type is(real(kind=REAL64))
-         tmpd = attr_val
-         attr_real32 = REAL(tmpd(1))
-      class default
-         _FAIL('unsupported subclass (not real32) for units of attribute named '//attr_name//' in '//var_name//' in '//fname)
-      end select
+      attr_real32 = var%get_attribute_real32(attr_name, rc=status)
+      _ASSERT(status == _SUCCESS, 'failed to get attribute named '//attr_name//' in '//var_name//' in '//fname)
 
       _RETURN(_SUCCESS)
    end function get_var_attr_real32
@@ -151,28 +136,17 @@ function get_var_attr_real64(this,var_name,attr_name,rc) result(attr_real64)
       character(len=*), intent(in) :: attr_name
       integer, optional, intent(out) :: rc
 
-      real(REAL64) :: tmp(1)
       integer :: status
       character(:), allocatable :: fname
-      type(Attribute), pointer :: attr
       type(Variable), pointer :: var
-      class(*), pointer :: attr_val(:)
 
       fname = this%get_file_name(_RC)
       var => this%get_variable(var_name,_RC)
       _ASSERT(associated(var),"no variable named "//var_name//" in "//fname)
-      attr => var%get_attribute(attr_name,_RC)
-      _ASSERT(associated(attr),"no attribute named "//attr_name//" in "//var_name//" in "//fname)
-      attr_val => attr%get_values()
-      select type(attr_val)
-      type is(real(kind=REAL64))
-         tmp = attr_val
-         attr_real64 = tmp(1)
-      class default
-         _FAIL('unsupported subclass (not real64) for units of attribute named '//attr_name//' in '//var_name//' in '//fname)
-      end select
-
+      attr_real64 = var%get_attribute_real64(attr_name, rc=status)
+      _ASSERT(status == _SUCCESS, 'failed to get attribute named '//attr_name//' in '//var_name//' in '//fname)
       _RETURN(_SUCCESS)
+
    end function get_var_attr_real64
 
    function get_var_attr_int32(this,var_name,attr_name,rc) result(attr_int32)
@@ -182,26 +156,15 @@ function get_var_attr_int32(this,var_name,attr_name,rc) result(attr_int32)
       character(len=*), intent(in) :: attr_name
       integer, optional, intent(out) :: rc
 
-      integer(INT32) :: tmp(1)
       integer :: status
       character(:), allocatable :: fname
-      type(Attribute), pointer :: attr
       type(Variable), pointer :: var
-      class(*), pointer :: attr_val(:)
 
       fname = this%get_file_name(_RC)
       var => this%get_variable(var_name,_RC)
       _ASSERT(associated(var),"no variable named "//var_name//" in "//fname)
-      attr => var%get_attribute(attr_name,_RC)
-      _ASSERT(associated(attr),"no attribute named "//attr_name//" in "//var_name//" in "//fname)
-      attr_val => attr%get_values()
-      select type(attr_val)
-      type is(integer(kind=INT32))
-         tmp = attr_val
-         attr_int32 = tmp(1)
-      class default
-         _FAIL('unsupported subclass (not int32) for units of attribute named '//attr_name//' in '//var_name//' in '//fname)
-      end select
+      attr_int32 = var%get_attribute_int32(attr_name, rc=status)
+      _ASSERT(status == _SUCCESS, 'failed to get attribute named '//attr_name//' in '//var_name//' in '//fname)
 
       _RETURN(_SUCCESS)
    end function get_var_attr_int32
@@ -213,26 +176,15 @@ function get_var_attr_int64(this,var_name,attr_name,rc) result(attr_int64)
       character(len=*), intent(in) :: attr_name
       integer, optional, intent(out) :: rc
 
-      integer(INT64) :: tmp(1)
       integer :: status
       character(:), allocatable :: fname
-      type(Attribute), pointer :: attr
       type(Variable), pointer :: var
-      class(*), pointer :: attr_val(:)
 
       fname = this%get_file_name(_RC)
       var => this%get_variable(var_name,_RC)
       _ASSERT(associated(var),"no variable named "//var_name//" in "//fname)
-      attr => var%get_attribute(attr_name,_RC)
-      _ASSERT(associated(attr),"no attribute named "//attr_name//" in "//var_name//" in "//fname)
-      attr_val => attr%get_values()
-      select type(attr_val)
-      type is(integer(kind=INT64))
-         tmp = attr_val
-         attr_int64 = tmp(1)
-      class default
-         _FAIL('unsupported subclass (not int64) for units of attribute named '//attr_name//' in '//var_name//' in '//fname)
-      end select
+      attr_int64 = var%get_attribute_int64(attr_name, rc=status)
+      _ASSERT(status == _SUCCESS, 'failed to get attribute named '//attr_name//' in '//var_name//' in '//fname)
 
       _RETURN(_SUCCESS)
    end function get_var_attr_int64
@@ -246,22 +198,13 @@ function get_var_attr_string(this,var_name,attr_name,rc) result(attr_string)
 
       integer :: status
       character(:), allocatable :: fname
-      type(Attribute), pointer :: attr
       type(Variable), pointer :: var
-      class(*), pointer :: attr_val
 
       fname = this%get_file_name(_RC)
       var => this%get_variable(var_name,_RC)
       _ASSERT(associated(var),"no variable named "//var_name//" in "//fname)
-      attr => var%get_attribute(attr_name,_RC)
-      _ASSERT(associated(attr),"no attribute named "//attr_name//" in "//var_name//" in "//fname)
-      attr_val => attr%get_value()
-      select type(attr_val)
-      type is(character(*))
-         attr_string = attr_val
-      class default
-         _FAIL('unsupported subclass (not string) for units of attribute named '//attr_name//' in '//var_name//' in '//fname)
-      end select
+      attr_string = var%get_attribute_string(attr_name, rc=status)
+      _ASSERT(status == _SUCCESS, 'failed to get attribute named '//attr_name//' in '//var_name//' in '//fname)
 
       _RETURN(_SUCCESS)
    end function get_var_attr_string