From d37a83fd8569cb57db427ece171d9d19a113592a Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 16 Mar 2021 11:51:22 +0100
Subject: [PATCH] removed Sapj output
---
src/diagnose.F90 | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/src/diagnose.F90 b/src/diagnose.F90
index 86c2d45a..50a630e1 100644
--- a/src/diagnose.F90
+++ b/src/diagnose.F90
@@ -26,6 +26,7 @@ SUBROUTINE diagnose(kstep)
INTEGER :: jarray_e_full(1:jmaxe+1), jarray_i_full(1:jmaxi+1)
REAL(dp) :: krarray_full(1:nkr), kzarray_full(1:nkz)
+ CALL cpu_time(t0_diag) ! Measuring time
!_____________________________________________________________________________
! 1. Initial diagnostics
@@ -118,8 +119,8 @@ SUBROUTINE diagnose(kstep)
IF (nsave_5d .GT. 0) THEN
CALL creatg(fidres, "/data/var5d/moments_e", "moments_e")
CALL creatg(fidres, "/data/var5d/moments_i", "moments_i")
- CALL creatg(fidres, "/data/var5d/Sepj", "Sepj")
- CALL creatg(fidres, "/data/var5d/Sipj", "Sipj")
+ ! CALL creatg(fidres, "/data/var5d/Sepj", "Sepj")
+ ! CALL creatg(fidres, "/data/var5d/Sipj", "Sipj")
END IF
! Add input namelist variables as attributes of /data/input, defined in srcinfo.h
@@ -232,6 +233,8 @@ SUBROUTINE diagnose(kstep)
CALL closef(fidres)
END IF
+
+ CALL cpu_time(t1_diag); tc_diag = tc_diag + (t1_diag - t0_diag)
END SUBROUTINE diagnose
@@ -405,8 +408,8 @@ SUBROUTINE diagnose_5d
CALL write_field5d_e(moments_e(ips_e:ipe_e,ijs_e:ije_e,:,:,updatetlevel), 'moments_e')
CALL write_field5d_i(moments_i(ips_i:ipe_i,ijs_i:ije_i,:,:,updatetlevel), 'moments_i')
- CALL write_field5d_e(Sepj(ips_e:ipe_e,ijs_e:ije_e,:,:), 'Sepj')
- CALL write_field5d_i(Sipj(ips_i:ipe_i,ijs_i:ije_i,:,:), 'Sipj')
+ ! CALL write_field5d_e(Sepj(ips_e:ipe_e,ijs_e:ije_e,:,:), 'Sepj')
+ ! CALL write_field5d_i(Sipj(ips_i:ipe_i,ijs_i:ije_i,:,:), 'Sipj')
CONTAINS
--
GitLab