force_imp.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"
#include "param_c.inc"
#include "com01_c.inc"
#include "com06_c.inc"
#include "com08_c.inc"
#include "impl1_c.inc"
#include "scr05_c.inc"
#include "scr14_c.inc"
#include "scr16_c.inc"
#include "parit_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	force_imp (ib, fac, snpc, npc, tf, a, v, x, skews, ar, vr, nsensor, sensor_tab, wfexc, iadc, fsky, fext, h3d_data, cptreac, fthreac, nodreac, th_surf, dpl0cld, vel0cld, d, dr, nconld, numnod, nfunct, stf, wfext)

Function/Subroutine Documentation

force_imp()

subroutine force_imp	(	integer, dimension(nibcld,*)	ib,
			fac,
		integer, intent(in)	snpc,
		integer, dimension(snpc)	npc,
			tf,
			a,
			v,
			x,
		type(skew_), intent(inout)	skews,
			ar,
			vr,
		integer, intent(in)	nsensor,
		type (sensor_str_), dimension(nsensor)	sensor_tab,
			wfexc,
		integer, dimension(4,*)	iadc,
			fsky,
			fext,
		type(h3d_database)	h3d_data,
		integer	cptreac,
			fthreac,
		integer, dimension(*)	nodreac,
		type (th_surf_), intent(inout)	th_surf,
		dimension(6,nconld), intent(in)	dpl0cld,
		dimension(6,nconld), intent(in)	vel0cld,
		dimension(3,numnod), intent(in)	d,
		dimension(3,numnod), intent(in)	dr,
		integer, intent(in)	nconld,
		integer, intent(in)	numnod,
		integer, intent(in)	nfunct,
		integer, intent(in)	stf,
		double precision, intent(inout)	wfext )

Definition at line 43 of file force_imp.F.

C-----------------------------------------------
C   M o d u l e s
C----------------------------------------------- 
      USE h3d_mod
      USE pinchtype_mod 
      USE sensor_mod
      USE th_surf_mod , ONLY : th_surf_
      USE force_mod   , ONLY : force
      USE skew_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com01_c.inc"
!#include      "com04_c.inc"
#include      "com06_c.inc"
#include      "com08_c.inc"
#include      "impl1_c.inc"
#include      "scr05_c.inc"
#include      "scr14_c.inc"
#include      "scr16_c.inc"
#include      "parit_c.inc"
C-----------------------------------------------,
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(IN) :: SNPC
      INTEGER ,INTENT(IN) :: NSENSOR,NCONLD,NUMNOD,NFUNCT
      INTEGER ,INTENT(IN) :: STF
      INTEGER NPC(SNPC),CPTREAC,NODREAC(*)
      INTEGER IB(NIBCLD,*)
      INTEGER IADC(4,*)
      my_real fac(lfaccld,*),tf(*),a(3,*),v(3,*),ar(3,*),vr(3,*),x(3,*),wfexc,fsky(8,lsky),fext(3,*),fthreac(6,*)
      TYPE(H3D_DATABASE) :: H3D_DATA
      TYPE (SENSOR_STR_) ,DIMENSION(NSENSOR) :: SENSOR_TAB
      TYPE(SKEW_),INTENT(INOUT) :: SKEWS
      TYPE (TH_SURF_) , INTENT(INOUT) :: TH_SURF
      my_real, INTENT(IN) ::  dpl0cld(6,nconld),vel0cld(6,nconld)
      my_real, INTENT(IN) ::  d(3,numnod), dr(3,numnod)
      DOUBLE PRECISION,INTENT(INOUT) :: WFEXT
C-----------------------------------------------
      call force( nibcld  ,ib      ,lfaccld    ,fac      ,snpc      ,
     2            npc     ,stf     ,tf         ,a        ,v         ,
     3            x       ,skews   ,ar         ,
     4            vr      ,nsensor ,sensor_tab ,wfexc    ,iadc      ,
     5            lsky    ,fsky    ,fext       ,h3d_data ,cptreac   ,
     6            fthreac ,nodreac ,th_surf    ,
     7            dpl0cld ,vel0cld ,d          ,dr       ,nconld    ,
     8            numnod  ,nfunct  , anim_v    ,outp_v   ,
     9            iparit  ,tt      ,dt1        ,n2d      ,wfext     ,
     a            impl_s)