eng_qaprint_driver.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	eng_qaprint_driver (irunn_bis, sensors, dt, output, iparit, glob_therm)

Function/Subroutine Documentation

eng_qaprint_driver()

subroutine eng_qaprint_driver	(	integer	irunn_bis,
		type (sensors_), intent(in)	sensors,
		type (dt_), intent(inout)	dt,
		type(output_), intent(inout)	output,
		integer, intent(in)	iparit,
		type (glob_therm_), intent(in)	glob_therm )

Parameters

[in,out]

output

output structure

Definition at line 38 of file eng_qaprint_driver.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE qa_out_mod
      USE sensor_mod
      USE dt_mod
      USE output_mod
      use glob_therm_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "com01_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IRUNN_BIS
      TYPE (SENSORS_) ,INTENT(IN) :: SENSORS
      TYPE (DT_)  , INTENT(INOUT) :: DT
      TYPE(OUTPUT_), INTENT(INOUT) :: OUTPUT !< output structure
      type (glob_therm_) ,intent(in) :: glob_therm
      INTEGER,INTENT(IN)::  IPARIT
C=======================================================================
 
      ! doqa is set in QA_OUT_MOD depending on DO_QA env variable setting
      ! we skip the specific QAPRINT treatment if doqa is != 1
      IF ( doqa /= 1  ) RETURN
 
      IF(ncycle == 0) THEN ! ECRITURE QAPRINT AU CYCLE 0 ENGINE
        CALL eng_qaprint_generalcontrolsinput(irunn_bis,output,iparit,sensors)
 
        CALL eng_qaprint_dtinput(dt,glob_therm)
 
        CALL eng_qaprint_animinput(sensors)
      ENDIF
C-----------------------------------------------------------------------
      RETURN