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