سابروتین مربوط تولید گرمای داخلی در نرم افزار آباکوس

برای تولید یک گرمای داخلی دلخواه که می تواند تابعی از زمان، مکان و دما باشد را می توان با استفاده از سابروتینی به نام HETVAL انجام داد. ورودی هایی که به این سابروتین توسط نرم افزار آباکوس داده می شود عبارتند از

TEMP(1) دما در حال حاضر

TEMP(2) گام دمایی

TIME(1) زمان مربوط به آن گام

TIME(2) زمان کل از ابتدای شبیه سازی

DTIME گام زمانی

STATEV(*) متغیرهای حالت

متغیرهایی که در انتهای محاسابات به عنوان خروجی به نرم افزار آباکوس بایستی داده شود عبارتند از

FLUX(1) شار حرارتی حجمی که عبارت است از انرژی گرمایی در واحد حجم

FLUX(2) نسبت تغییرات شار حرارتی حجمی به تغییرات دما. در صورتی که مقدار شار حرارتی حجمی وابسته به دما باشد بایستی این مقدار تعیین شود.

در ذیل یک نمونه ساده از سابروتین HETVAL با تولید یک شار حرارتی ثابت به مقدار 0.40483 ارائه شده است.

      SUBROUTINE HETVAL(CMNAME,TEMP,TIME,DTIME,SVAR,FLUX,PREDEF,
     1                  DPRED)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME
      DIMENSION TEMP(2),SVAR(1),PREDEF(1),TIME(2),FLUX(2),DPRED(1)
C
      FLUX(1)=0.40483
      RETURN
      END