Fortran Coder

查看: 134|回复: 4

[Module] 数据传输

[复制链接]

18

帖子

5

主题

0

精华

入门

F 币
91 元
贡献
57 点
发表于 2020-11-3 10:47:41 | 显示全部楼层 |阅读模式
关于数据传输问题  迫于其他要求,要根据COMMON对数据传输,传输的每个量在每个增量步后都进行更新,但是传输的量只是最后一次计算完成的量,
如图所示 ,温度传输最后传递的是最底层的温度
该怎么解决
[Fortran] 纯文本查看 复制代码
 SUBROUTINE UMATHT_MAT1(U,DUDT,DUDG,FLUX,DFDT,DFDG,

     1 STATEV,TEMP,DTEMP,DTEMDX,TIME,DTIME,PREDEF,DPRED,
     2 CMNAME,NTGRD,NSTATV,PROPS,NPROPS,COORDS,PNEWDT,
     3 NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME
      DIMENSION DUDG(NTGRD),FLUX(NTGRD),DFDT(NTGRD),
     1 DFDG(NTGRD,NTGRD),STATEV(NSTATV),DTEMDX(NTGRD),
     2 TIME(2),PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3)
C
      REAL rho_v, rho_f, phi_v, phi_f, A, E, n, R, h_s, h_g
     1 rho, M, delta_rho, f, Cv, Cf, Cp, Cpg, phi, mg,m_g
     2 delta_U, V, kv, kv2, kf, Qi, rho_g, rho_pro, kv1, kf1
     3 miu
      REAL k(3), DkDT(3), PRE(3), GAMA(3)
C     -------------------------------------------
C     定义公共块
      COMMON X, Z, W, B, BA
        REAL X, Z, W, B, BA
C 第二个程序
SUBROUTINE UMATHT_MAT2(U,DUDT,DUDG,FLUX,DFDT,DFDG,
     1 STATEV,TEMP,DTEMP,DTEMDX,TIME,DTIME,PREDEF,DPRED,
     2 CMNAME,NTGRD,NSTATV,PROPS,NPROPS,COORDS,PNEWDT,
     3 NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME
      DIMENSION DUDG(NTGRD),FLUX(NTGRD),DFDT(NTGRD),
     1 DFDG(NTGRD,NTGRD),STATEV(NSTATV),DTEMDX(NTGRD),
     2 TIME(2),PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3)
C
      REAL rho_v, rho_f, phi_v, phi_f, A, E, n, R, m_g,
     1 rho, M, delta_rho, f, Cv, Cf, Cp, Cpg, phi, delta_mg,
     2 delta_U, V, kv, kf, rho_g, rho_pro, kv1, kf1,
     3 miu,delta_rhog
      REAL GAMA(3)
C     
      COMMON L, K, S, NN, BBA
        REAL L, K, S, NN, BBA
回复

使用道具 举报

1560

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1565 元
贡献
1019 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2020-11-3 11:04:11 | 显示全部楼层
老生常谈,建议用 module 代替 common

18

帖子

5

主题

0

精华

入门

F 币
91 元
贡献
57 点
 楼主| 发表于 2020-11-3 11:37:04 | 显示全部楼层
fcode 发表于 2020-11-3 11:04
老生常谈,建议用 module 代替 common

我看了很多帖子都这么说的 但是老板就是想用COMMON 没办法
请问有什么解决思路么

1560

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1565 元
贡献
1019 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2020-11-3 13:13:03 | 显示全部楼层
换一个老板

18

帖子

5

主题

0

精华

入门

F 币
91 元
贡献
57 点
 楼主| 发表于 2020-11-3 14:39:50 | 显示全部楼层

那可就毕不了业了
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2020-12-5 10:20

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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