From 1563975ec1aa590d7a141c984c243563c4c51b3f Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 8 Oct 2020 14:14:25 +0200 Subject: [PATCH] Philippe 08/10/2020: tfield_metadata_base type can be used directly (not abstract anymore) --- src/LIB/SURCOUCHE/src/modd_field.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/LIB/SURCOUCHE/src/modd_field.f90 b/src/LIB/SURCOUCHE/src/modd_field.f90 index 9c592944a..4b870305e 100644 --- a/src/LIB/SURCOUCHE/src/modd_field.f90 +++ b/src/LIB/SURCOUCHE/src/modd_field.f90 @@ -153,7 +153,7 @@ TYPE TFIELDPTR_T1D TYPE(DATE_TIME), DIMENSION(:), POINTER :: DATA => NULL() END TYPE TFIELDPTR_T1D ! -type, abstract :: tfield_metadata_base +type :: tfield_metadata_base CHARACTER(LEN=NMNHNAMELGTMAX) :: CMNHNAME = '' !Name of the field (for MesoNH, non CF convention) CHARACTER(LEN=NSTDNAMELGTMAX) :: CSTDNAME = '' !Standard name (CF convention) CHARACTER(LEN=32) :: CLONGNAME = '' !Long name (CF convention) -- GitLab