Fortran Coder

查看: 238|回复: 1

[求助] 求各位帮我看下这一组FROTAN帮我解答下(告诉下我什么意...

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
9 元
贡献
3 点
发表于 2017-5-8 14:51:30 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
 SUBROUTINE TYPE534(TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*)

C-----------------------------------------------------------------------------------------------------------------------
C    DESCRIPTION:
C     THIS SUBROUTINE MODELS A VERTICAL CYLINDRICAL STORAGE TANK WITH AN IMMERSED
C     HEAT EXCHANGER. THIS ROUTINE SOLVES THE COUPLED DIFFERENTIAL EQUATIONS
C     IMPOSED BY CONSIDERING THE MASS IN THE STORAGE TANK AND THE MASS IN THE
C     HEAT EXCHANGER.
C  
C     NEW FEATURES:
C        - USERS CAN NOW SPECIFY THE FRACTION OF INLET FLOW THAT GOES TO EACH NODE
C        - LOSSES TO A GAS FLUE CAN NOW BE SPECIFIED (THESE LOSSES ARE SET TO ZERO
C            IF AUX ENERGY IS BEING ADDED TO THE TANK
C        - USERS CAN ADD/REMOVE ENERGY FROM ANY NODE BY THE USE OF "MISCELLANEOUS"
C            ENERGY FLOWS.  THIS FEATURE CAN BE USED TO SIMULATE A PILOT LIGHT.
C        - TEMPERATURE SEEKING MODE FOR THE FLUID INLETS HAS BEEN ADDED
C        - NEW NODAL EDGE LOSSES SO USERS CAN PARTIALLY BURY THEIR TANK ETC...
C        - MULTIPLE HEAT EXCHANGERS NOW ADDED
C
C     CARE SHOULD BE TAKEN WHEN CONSIDERING HIGH MASS FLOW RATES OF MIXING BETWEEN
C     NODES AS THIS CAN CAUSE AN ENERGY BALANCE PROBLEM WITH THE MODEL IF THE "CONVERGED"
C     PARAMETER IS TOO LARGE.
C     
C     UPDATES:
C        JULY 11TH, 2004 - FIXED A BUG WITH 1-NODE TANKS (FLOW_OUT_LOAD)
C        JULY 20TH, 2004 - FIXED A BUG WITH TANK VOLUME CALCULATION FOR HX REDUCTIONS
C        JULY 30TH, 2004 - REPLACED A FEW EXP( WITH DEXP(
C        SEPTEMBER 28TH, 2004 - ADDED THE ABILITY TO READ THE PARAMETERS FROM A DATA FILE SO WE CAN HAVE
C           A NICE APPLICATION PROGRAM THROUGH THE STUDIO
C        NOVEMBER 2, 2004 - FIXED A BUG IN THE TNK VOLUME CALCULATION FOR IHXGEOM=1
C        MARCH 25TH, 2005 - RESET THE NUMBER OF HX NODES TO ZERO FOR SYSTEMS WITHOUT A HX
C-----------------------------------------------------------------------------------------------------------------------
! Copyright ?2004 Thermal Energy System Specialists, LLC. All rights reserved.

C-----------------------------------------------------------------------------------------------------------------------
      !Export this subroutine for its use in external DLLs.
!DEC$ATTRIBUTES DLLEXPORT :: TYPE534
C-----------------------------------------------------------------------------------------------------------------------

C-----------------------------------------------------------------------------------------------------------------------
C    ACCESS TRNSYS FUNCTIONS
回复

使用道具 举报

211

帖子

1

主题

0

精华

宗师

F 币
1234 元
贡献
849 点
发表于 2017-5-8 17:11:52 | 显示全部楼层
就这两句有用,其他都是注释。
[Fortran] 纯文本查看 复制代码
SUBROUTINE TYPE534(TIME,XIN,OUT,T,DTDT,PAR,INFO,ICNTRL,*)
!DEC$ATTRIBUTES DLLEXPORT :: TYPE534
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-12-18 14:41

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表