From 4d8ad27ae4dfa2270f552768b5f7ec43e56b7c4c Mon Sep 17 00:00:00 2001
From: Uwe Schulzweida <uwe.schulzweida@mpimet.mpg.de>
Date: Fri, 7 Oct 2022 12:56:29 +0200
Subject: [PATCH] Fortran interface update.
---
src/cdi.inc | 4 +++-
src/grid.h | 4 ++--
src/mo_cdi.f90 | 1 +
3 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/src/cdi.inc b/src/cdi.inc
index f0a60b1c9..bb3974090 100644
--- a/src/cdi.inc
+++ b/src/cdi.inc
@@ -4,7 +4,7 @@
!
! Author:
! -------
-! Uwe Schulzweida, MPI-MET, Hamburg, September 2022
+! Uwe Schulzweida, MPI-MET, Hamburg, October 2022
!
!
@@ -293,6 +293,8 @@
PARAMETER (CDI_PROJ_SINU = 24)
INTEGER CDI_PROJ_STERE
PARAMETER (CDI_PROJ_STERE = 25)
+ INTEGER CDI_PROJ_HEALPIX
+ PARAMETER (CDI_PROJ_HEALPIX = 26)
!
! ZAXIS types
!
diff --git a/src/grid.h b/src/grid.h
index a1d0e7517..3beacc216 100644
--- a/src/grid.h
+++ b/src/grid.h
@@ -148,8 +148,8 @@ struct addIfNewRes cdiVlistAddGridIfNew(int vlistID, grid_t *grid, int mode);
int gridVerifyProjParamsLCC(struct CDI_GridProjParams *gpp);
int gridVerifyProjParamsSTERE(struct CDI_GridProjParams *gpp);
-bool isGaussianLatitudes(SizeType nlats, const double *latitudes);
-void gaussianLatitudes(SizeType nlats, double *latitudes, double *weights);
+bool isGaussianLatitudes(size_t nlats, const double *latitudes);
+void gaussianLatitudes(size_t nlats, double *latitudes, double *weights);
#endif
/*
diff --git a/src/mo_cdi.f90 b/src/mo_cdi.f90
index 85f4c88ea..873220153 100644
--- a/src/mo_cdi.f90
+++ b/src/mo_cdi.f90
@@ -147,6 +147,7 @@ module mo_cdi
integer(c_int), public, parameter :: CDI_PROJ_LAEA = 23
integer(c_int), public, parameter :: CDI_PROJ_SINU = 24
integer(c_int), public, parameter :: CDI_PROJ_STERE = 25
+ integer(c_int), public, parameter :: CDI_PROJ_HEALPIX = 26
integer(c_int), public, parameter :: ZAXIS_SURFACE = 0
integer(c_int), public, parameter :: ZAXIS_GENERIC = 1
integer(c_int), public, parameter :: ZAXIS_HYBRID = 2
--
GitLab