From accf2cc1dcaab87cfafe412a5a06f94083edc6e0 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 15 Dec 2020 17:42:33 +0100
Subject: [PATCH] remove write_field flags
---
src/diagnose.F90 | 22 +++++++---------------
1 file changed, 7 insertions(+), 15 deletions(-)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 23d9d4de..2bf554d4 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -318,14 +318,10 @@ SUBROUTINE diagnose_2d
iframe2d=iframe2d+1
CALL attach(fidres,"/data/var2d/" , "frames", iframe2d)
- IF (write_phi) THEN
- CALL write_field2d(phi(:,:), 'phi')
- END IF
+ CALL write_field2d(phi(:,:), 'phi')
+ CALL write_field2d(moments_e(1,1,:,:,updatetlevel), 'Ne00')
+ CALL write_field2d(moments_i(1,1,:,:,updatetlevel), 'Ni00')
- IF (write_Na00) THEN
- CALL write_field2d(moments_e(1,1,:,:,updatetlevel), 'Ne00')
- CALL write_field2d(moments_i(1,1,:,:,updatetlevel), 'Ni00')
- END IF
CONTAINS
SUBROUTINE write_field2d(field, text)
@@ -371,15 +367,11 @@ SUBROUTINE diagnose_5d
iframe5d=iframe5d+1
CALL attach(fidres,"/data/var5d/" , "frames", iframe5d)
- IF (write_moments) THEN
- CALL write_field5d_e(moments_e(:,:,:,:,updatetlevel), 'moments_e')
- CALL write_field5d_i(moments_i(:,:,:,:,updatetlevel), 'moments_i')
- END IF
+ CALL write_field5d_e(moments_e(:,:,:,:,updatetlevel), 'moments_e')
+ CALL write_field5d_i(moments_i(:,:,:,:,updatetlevel), 'moments_i')
- IF (write_non_lin) THEN
- CALL write_field5d_e(Sepj, 'Sepj')
- CALL write_field5d_i(Sipj, 'Sipj')
- END IF
+ CALL write_field5d_e(Sepj, 'Sepj')
+ CALL write_field5d_i(Sipj, 'Sipj')
CONTAINS
--
GitLab