From 4a714f6e67f72ccdfc7e025ede814c61e181ce55 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 25 Aug 2022 13:13:00 +0200 Subject: [PATCH] Philippe 25/08/2022: add CDFINT_MPI parameter --- src/MNH/modd_precision.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/MNH/modd_precision.f90 b/src/MNH/modd_precision.f90 index a759ddf1f..83db21558 100644 --- a/src/MNH/modd_precision.f90 +++ b/src/MNH/modd_precision.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 2019-2021 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 2019-2022 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -10,6 +10,7 @@ ! P. Wautelet 27/03/2019: add MNHTIME and MNHTIME_MPI ! P. Wautelet 26/04/2019: add MNHLOG and MNHLOG_MPI/MNHLOG32_MPI/MNHLOG64_MPI ! P. Wautelet 06/01/2021: use kind=CDFINT to define parameters used in netCDF calls +! P. Wautelet 25/08/2022: add CDFINT_MPI parameter !----------------------------------------------------------------- module modd_precision @@ -37,7 +38,7 @@ public :: MNHTIME, MNHTIME_MPI public :: LFIINT #ifdef MNH_IOCDF4 -public :: CDFINT, MNHINT_NF90, MNHREAL_NF90 +public :: CDFINT, CDFINT_MPI, MNHINT_NF90, MNHREAL_NF90 #endif integer, parameter :: MNHINT32 = selected_int_kind( r = 9 ) @@ -117,6 +118,7 @@ integer, parameter :: LFIINT = MNHINT64 #ifdef MNH_IOCDF4 ! Kinds for netCDF integer, parameter :: CDFINT = selected_int_kind( r = 9 ) +integer, parameter :: CDFINT_MPI = MPI_INTEGER4 #if (MNH_INT == 4) integer(kind=CDFINT), parameter :: MNHINT_NF90 = NF90_INT -- GitLab