From 1c1e16f1710cce5d19110c9c1193c7743f032ec8 Mon Sep 17 00:00:00 2001 From: Matthew Thompson Date: Tue, 16 Aug 2022 14:13:43 -0400 Subject: [PATCH] Fix in ncdiag for Intel 2022.1 --- CHANGELOG.md | 2 ++ GMAO_ncdiag/nc_diag_cat/netcdf_unlimdims.F90 | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index 1738bbad..a0cdc6b4 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -13,6 +13,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ### Fixed +- Add `target` attribute to variables in `nc_diag_cat`. Needed to build with Intel 2022.1 + ### Removed ## [1.5.6] - 2022-07-22 diff --git a/GMAO_ncdiag/nc_diag_cat/netcdf_unlimdims.F90 b/GMAO_ncdiag/nc_diag_cat/netcdf_unlimdims.F90 index 3bbc7aa0..4b11955e 100644 --- a/GMAO_ncdiag/nc_diag_cat/netcdf_unlimdims.F90 +++ b/GMAO_ncdiag/nc_diag_cat/netcdf_unlimdims.F90 @@ -21,8 +21,8 @@ integer (C_INT) function nc_inq_unlimdims(ncid, nunlimdimsp, unlimdimidsp) bind( ! pf = polyfill integer(c_int) function pf_nf90_inq_unlimdims(ncid, num_unlim_dims, unlim_dims) integer(c_int), intent(in) :: ncid - integer(c_int), intent(inout) :: num_unlim_dims - integer(c_int), intent(out), optional :: unlim_dims(:) + integer(c_int), target, intent(inout) :: num_unlim_dims + integer(c_int), target, intent(out), optional :: unlim_dims(:) integer :: i