lecinp.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"
#include "scr02_c.inc"
#include "scr07_c.inc"
#include "scr18_c.inc"
#include "scrnoi_c.inc"
#include "scrcut_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	lecinp (irun, irfl, irfe, h3d_data, flag_cst_ams, dynain_data, sensors, dt, output, glob_therm)

Function/Subroutine Documentation

lecinp()

subroutine lecinp	(	integer	irun,
		integer	irfl,
		integer	irfe,
		type(h3d_database), intent(inout)	h3d_data,
		integer	flag_cst_ams,
		type(dynain_database), intent(inout)	dynain_data,
		type(sensors_), intent(inout)	sensors,
		type (dt_), intent(inout)	dt,
		type(output_), intent(inout)	output,
		type (glob_therm_), intent(inout)	glob_therm )

Parameters

[in,out]

output

output structure

Definition at line 37 of file lecinp.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE h3d_mod
      USE state_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"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IRUN, IRFL, IRFE,FLAG_CST_AMS
      TYPE(H3D_DATABASE), INTENT(INOUT) :: H3D_DATA
      TYPE(DYNAIN_DATABASE), INTENT(INOUT) :: DYNAIN_DATA
      TYPE(SENSORS_), INTENT(INOUT) :: SENSORS
      TYPE (DT_), INTENT(INOUT) :: DT
      TYPE(OUTPUT_), INTENT(INOUT) :: OUTPUT !< output structure
      type (glob_therm_) ,intent(inout)   :: glob_therm
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
#include      "scr02_c.inc"
#include      "scr07_c.inc"
#include      "scr18_c.inc"
#include      "scrnoi_c.inc"
#include      "scrcut_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
C   S o u r c e   L i n e s
C-----------------------------------------------
      nnoise=0
      ncuts=0
C
      DO i=1,52
        dtfac1(i) = zero
        dtmin1(i) = zero
        idtmin(i) = 0
      ENDDO
      nodadt = 0
C
      ifreef=1
      CALL freform(irun,irfl,irfe,h3d_data,flag_cst_ams,dynain_data,
     .             sensors,dt,output,glob_therm)
C
      rewind iin
C
      RETURN