getlog及inquire代码问题请教

dawang · 发表于 2017-7-6 02:27:58

本人菜鸟，向各位大神请教两个问题，cmaq转换wrf/chem中一段代码
1，getlog是什么函数，是否为库存函数，书中未找到此函数。
2，inquire括号中name=map_file，是否应该为file=map_file? 因为inquire函数参数中没有name此项，且在后续代码中发现open(unit=iopen,file=map_file,status='old')此行代码。

因为此段代码为前辈所写，且未完成，所以我再修改过程中需要谨慎怀疑每一行代码，劳烦各位大神回复，谢谢。

[Fortran] 纯文本查看 复制代码

      i=hostnm(host_name)
      call getlog(user_name)
      call date_and_time(creation_date,creation_time)
      inquire(unit=iopen,name=map_file)

vvt · 发表于 2017-7-6 08:00:16

getlog 是 IVF 的扩展函数，用来获取当前登录windows的用户名。

name=map_file 用来接受文件名。是 inquire 的输出参数。
file=filename 用来指定文件名。是 inquire 的输入参数。

dawang · 发表于 2018-8-6 21:34:20

vvt 发表于 2017-7-6 08:00
getlog 是 IVF 的扩展函数，用来获取当前登录windows的用户名。

name=map_file 用来接受文件名。是 inquir ...

明白了，十分感谢

[求助] getlog及inquire代码问题请教

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章