C
C-------------------------------------------------------------ACTUAL_TERM---
C
C SUBRUTINA ACTUAL_TERM
C
C ACTUALIZA LA ZONA DE CONTACTO TÉRMICA
C SEGÚN LO INDICA EL PROBLEMA ELASTICO
C
SUBROUTINE ACTUAL_TERM(NODS,PRBT,SOLS,MATT,CNTS,ELTS,NODT,
@ PINTT,ZCTOS,PRBS,FRES)
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES EXTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRBT,PRBS : Variables globales del problema
RECORD /S_problema/ PRBT
RECORD /S_problema/ PRBS
C SOLS : Solidos del problema
RECORD /S_solido/ SOLS(N_MAX_SOL)
C MATT : Materiales
RECORD /S_material/ MATT(N_MAX_SOL)
C CNTS : Contornos del problema
RECORD /S_contorno/ CNTS(N_MAX_CNT)
C ELTS : Elementos del problema
RECORD /S_elemento/ ELTS(N_MAX_ELT)
C NODT,NODS: Nodos del problema
RECORD /S_nodo/ NODT(N_MAX_NOD)
RECORD /S_nodo/ NODS(N_MAX_NOD)
C PINTT : Puntos internos del problema
RECORD /S_pntint/ PINTT(N_MAX_PINT)
C ZCTOS: Zonas de contacto del problema
RECORD /S_zncto/ ZCTOS(N_MAX_ZCTO)
C FRES : Funcion de resistencia-tension
RECORD /S_fresTERM/ FRES
C
C
C
CCCCCCCCCCCCCCC
C
C RUTINA
C
CCCCCCCCCCCCCCC
C
C ACTUALIZAMOS LAS CONDICIONES DE CONTACTO TÉRMICO
C
CALL ACTUAL1_TERM(NODS,PRBT,SOLS,MATT,CNTS,ELTS,NODT,
@ PINTT,ZCTOS,PRBS,FRES)
C
C CALCULAMOS LAS RESISTENCIAS DE LA ZONA DE CONTACTO(R=KR/T^LR)
C
CALL ACTUAL2_TERM(NODS,PRBT,SOLS,MATT,CNTS,ELTS,NODT,
@ PINTT,ZCTOS,PRBS,FRES)
C
C FIN DE LA RUTINA LECTURA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
