eng_qaprint_dtinput.F File Reference

#include "implicit_f.inc"
#include "scr02_c.inc"
#include "scr18_c.inc"
#include "scr17_c.inc"
#include "sms_c.inc"
#include "cong2_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	eng_qaprint_dtinput (dt, glob_therm)

Function/Subroutine Documentation

eng_qaprint_dtinput()

subroutine eng_qaprint_dtinput	(	type(dt_), intent(inout)	dt,
		type (glob_therm_), intent(in)	glob_therm )

Definition at line 35 of file eng_qaprint_dtinput.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE qa_out_mod
      USE message_mod
      USE dt_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"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "scr02_c.inc"
#include      "scr18_c.inc"
#include      "scr17_c.inc"
#include      "sms_c.inc"
#include      "cong2_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE(DT_)  , INTENT(INOUT)                      :: DT
      type (glob_therm_) ,intent(in) :: glob_therm
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
      CHARACTER (LEN=255) :: VARNAME
      DOUBLE PRECISION TEMP_DOUBLE
C=======================================================================
C-----------------------------------------------
C     QA PRINT FOR DT INPUTS
C-----------------------------------------------
      IF (myqakey('/DT')) THEN
 
        WRITE(varname,'(A)') 'NODADT'
        CALL qaprint(varname(1:len_trim(varname)),nodadt,0.0_8)
 
        DO i=1,102 
C         VARNAME: variable name in ref.extract (without blanks)
          WRITE(varname,'(A,I0)') 'IDTMIN_',i      ! IDTMIN(11) => 'IDTMIN_11'
          CALL qaprint(varname(1:len_trim(varname)),idtmin(i),0.0_8)
 
          WRITE(varname,'(A,I0)') 'IDTGR_',i
          CALL qaprint(varname(1:len_trim(varname)),idtgr(i),0.0_8)
 
          WRITE(varname,'(A,I0)') 'DTFAC_',i
          temp_double = dtfac1(i)
          CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
          WRITE(varname,'(A,I0)') 'DTMIN_',i
          temp_double = dtmin1(i)
          CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
        ENDDO
 
        WRITE(varname,'(A)') 'MIN_ASPECT'
        temp_double = dt%BRICK_CST_COL_MIN
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
        WRITE(varname,'(A)') 'MIN_DEFV'
        temp_double = dt%BRICK_CST_DEFV_MIN
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
C-----------------------------------------------
C     AMS
C-----------------------------------------------
        WRITE(varname,'(A)') 'IDTMINS'
        CALL qaprint(varname(1:len_trim(varname)),idtmins,0.0_8)
 
        WRITE(varname,'(A)') 'DTMINS'
        temp_double = dtmins
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
        WRITE(varname,'(A)') 'DTFACS'
        temp_double = dtfacs
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
        WRITE(varname,'(A)') 'TOL_SMS'
        temp_double = tol_sms
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
        WRITE(varname,'(A)') 'NSMSPCG'
        CALL qaprint(varname(1:len_trim(varname)),nsmspcg,0.0_8)
 
C-----------------------------------------------
C     /DTIX
C-----------------------------------------------
        WRITE(varname,'(A)') 'DTIN'
        temp_double = dtin
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
        WRITE(varname,'(A)') 'DTMX'
        temp_double = dtmx
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
C-----------------------------------------------
C     Interface
C-----------------------------------------------
        WRITE(varname,'(A)') 'IDTMINS_INT'
        CALL qaprint(varname(1:len_trim(varname)),idtmins_int,0.0_8)
 
        WRITE(varname,'(A)') 'DTMINS_INT'
        temp_double = dtmins_int
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
        WRITE(varname,'(A)') 'DTFACS_INT'
        temp_double = dtfacs_int
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
C-----------------------------------------------
C     Thermique
C-----------------------------------------------
        WRITE(varname,'(A)') 'NODADT_THERM'
        CALL qaprint(varname(1:len_trim(varname)),glob_therm%NODADT_THERM,0.0_8)
 
        WRITE(varname,'(A)') 'IDT_THERM'
        CALL qaprint(varname(1:len_trim(varname)),glob_therm%IDT_THERM,0.0_8)
 
        WRITE(varname,'(A)') 'DTFACTHERM'
        temp_double = glob_therm%DTFACTHERM
        CALL qaprint(varname(1:len_trim(varname)),0,temp_double)
 
C-----------------------------------------------
 
        WRITE(varname,'(A)') 'IDT1SH'
        CALL qaprint(varname(1:len_trim(varname)),idt1sh,0.0_8)
 
        WRITE(varname,'(A)') 'IDT1SOL'
        CALL qaprint(varname(1:len_trim(varname)),idt1sol,0.0_8)
 
        WRITE(varname,'(A)') 'IDT1TET10'
        CALL qaprint(varname(1:len_trim(varname)),idt1tet10,0.0_8)
 
 
      ENDIF
 
      RETURN