From 59628028811197415f4d0e6b0859d17c2c714487 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 23 Jan 2017 10:22:09 +0100
Subject: [PATCH] Philippe 23/01/2017: possible to write scalar logical values
in output files
---
src/LIB/SURCOUCHE/src/io_write_field.f90 | 25 ++++++++++++++++++++++++
1 file changed, 25 insertions(+)
diff --git a/src/LIB/SURCOUCHE/src/io_write_field.f90 b/src/LIB/SURCOUCHE/src/io_write_field.f90
index 806f50b5d..6213e0ece 100644
--- a/src/LIB/SURCOUCHE/src/io_write_field.f90
+++ b/src/LIB/SURCOUCHE/src/io_write_field.f90
@@ -28,6 +28,31 @@ DO JI = 1,SIZE(TPOUTPUT%NFIELDLIST)
IDX = TPOUTPUT%NFIELDLIST(JI)
SELECT CASE (TFIELDLIST(IDX)%NDIMS)
!
+ !0D output
+ !
+ CASE (0)
+ SELECT CASE (TFIELDLIST(IDX)%NTYPE)
+ !
+ !0D logical
+ !
+ CASE (TYPELOG)
+ IF ( .NOT.ALLOCATED(TFIELDLIST(IDX)%TFIELD_L0D) ) THEN
+ PRINT *,'FATAL: IO_WRITE_FIELDLIST: TFIELD_L0D is NOT allocated for ',TRIM(TFIELDLIST(IDX)%CMNHNAME)
+ STOP
+ END IF
+ IF ( .NOT.ASSOCIATED(TFIELDLIST(IDX)%TFIELD_L0D(IMI)%DATA) ) THEN
+ PRINT *,'FATAL: IO_WRITE_FIELDLIST: TFIELD_L0D%DATA is not associated for ',TRIM(TFIELDLIST(IDX)%CMNHNAME)
+ STOP
+ END IF
+ CALL IO_WRITE_FIELD(TPOUTPUT%TFILE,TFIELDLIST(IDX),HFIPRI,IRESP,TFIELDLIST(IDX)%TFIELD_L0D(IMI)%DATA)
+ !
+ !0D other types
+ !
+ CASE DEFAULT
+ PRINT *,'FATAL: IO_WRITE_FIELDLIST: type not yet supported for 0D output of ',TRIM(TFIELDLIST(IDX)%CMNHNAME)
+ STOP
+ END SELECT
+ !
!1D output
!
CASE (1)
--
GitLab