From 7e2f7f91384e2a856890a2475f10663d2a55ffa5 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 5 Nov 2021 09:16:13 +0100
Subject: [PATCH] Philippe 05/11/2021: add Fill_tfieldmetadata_from_tfielddata
constructor
---
src/LIB/SURCOUCHE/src/modd_field.f90 | 27 +++++++++++++++++++++++++++
1 file changed, 27 insertions(+)
diff --git a/src/LIB/SURCOUCHE/src/modd_field.f90 b/src/LIB/SURCOUCHE/src/modd_field.f90
index 1fa797e41..2c91243c5 100644
--- a/src/LIB/SURCOUCHE/src/modd_field.f90
+++ b/src/LIB/SURCOUCHE/src/modd_field.f90
@@ -255,6 +255,7 @@ TYPE(TFIELDDATA), ALLOCATABLE, DIMENSION(:), SAVE :: TFIELDLIST
interface TFIELDMETADATA
module procedure :: Fill_tfieldmetadata
+ module procedure :: Fill_tfieldmetadata_from_tfielddata
end interface TFIELDMETADATA
interface TFIELDDATA
@@ -504,6 +505,32 @@ type(tfieldmetadata) function Fill_tfieldmetadata( cmnhname, cstdname, clongname
if ( Present( ltimedep ) ) tpfield%ltimedep = ltimedep
end function Fill_tfieldmetadata
+
+type(tfieldmetadata) function Fill_tfieldmetadata_from_tfielddata( tpfieldin ) result(tpfield)
+ type(tfielddata), intent(in) :: tpfieldin
+
+ tpfield%CMNHNAME = tpfieldin%CMNHNAME
+ tpfield%CSTDNAME = tpfieldin%CSTDNAME
+ tpfield%CLONGNAME = tpfieldin%CLONGNAME
+ tpfield%CUNITS = tpfieldin%CUNITS
+ tpfield%CCOMMENT = tpfieldin%CCOMMENT
+ tpfield%NGRID = tpfieldin%NGRID
+ tpfield%NTYPE = tpfieldin%NTYPE
+ tpfield%NDIMS = tpfieldin%NDIMS
+ tpfield%NDIMLIST = tpfieldin%NDIMLIST
+ tpfield%NFILLVALUE = tpfieldin%NFILLVALUE
+ tpfield%XFILLVALUE = tpfieldin%XFILLVALUE
+ tpfield%NVALIDMIN = tpfieldin%NVALIDMIN
+ tpfield%NVALIDMAX = tpfieldin%NVALIDMAX
+ tpfield%XVALIDMIN = tpfieldin%XVALIDMIN
+ tpfield%XVALIDMAX = tpfieldin%XVALIDMAX
+ tpfield%CDIR = tpfieldin%CDIR
+ tpfield%CLBTYPE = tpfieldin%CLBTYPE
+ tpfield%LTIMEDEP = tpfieldin%LTIMEDEP
+
+end function Fill_tfieldmetadata_from_tfielddata
+
+
type(tfielddata) function Fill_tfielddata( cmnhname, cstdname, clongname, cunits, ccomment, &
ngrid, ntype, ndims, ndimlist, &
nfillvalue, xfillvalue, nvalidmin, nvalidmax, xvalidmin, xvalidmax, &
--
GitLab