vb获取html中的inout,input conversion error-SWAT模型-Fortran语法讨论-专业Fortran论坛 -
由于这个子程序不能一下全部粘贴上去，所以我只要分开附上：
subroutine clicon
!! ~ ~ ~ PURPOSE ~ ~ ~
!! this subroutine controls weather inputs to SWAT. Precipitation and
!! temperature data is read in and the weather generator is called to
!! fill in radiation, wind speed and relative humidity as well as
!! missing precipitation and temperatures. Adjustments for climate
!! changes studies are also made in this subroutine.
!! ~ ~ ~ INCOMING VARIABLES ~ ~ ~
!! name |units |definition
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!! elevb(:,:) |m |elevation at center of band
!! elevb_fr(:,:)|none |fraction of subbasin area within elevation
!! |band
!! elevp(:) |m |elevation of precipitation gage station
!! elevt(:) |m |elevation of temperature gage station
!! hru_sub(:) |none |subbasin in which HRU is located
!! huminc(:,:) |none |monthly humidity adjustment. Daily values
!! |for relative humidity within the month are
!! |raised or lowered by the specified amount.
!! |(used in climate change studies)
!! id1 |julian date |first day of simulation in year
!! ifirstpet |none |potential ET data search code
!! |0 first day of potential ET data located in
!! | file
!! |1 first day of potential ET data not located
!! | in file
!! ipet |none |code for potential ET method
!! |0 Priestley-Taylor method
!! |1 Penman/Monteith method
!! |2 Hargreaves method
!! |3 read in daily potential ET values
!! irgage(:) |none |HRU rain gage data code (gage # for rainfall
!! |data used in HRU)
!! itgage(:) |none |HRU temperature gage data code (gage # for
!! |temperature data used in HRU)
!! iyr |year |year currently being simulated (eg 1980)
!! i_mo |none |current month of simulation
!! nhru |none |number of HRUs in watershed
!! nstep |none |number of lines of rainfall data for each
!! |day
!! pcpsim |none |rainfall input code
!! |1 gage read for each subbasin
!! |2 gage simulated for each subbasin
!! plaps(:) |mm H2O/km |precipitation lapse rate: precipitation
!! |increase due to increase in elevation
!! radinc(:,:) |MJ/m^2 |monthly solar radiation adjustment. Daily
!! |radiation within the month is raised or
!! |lowered by the specified amount. (used in
!! |climate change studies)
!! rfinc(:,:) |% |monthly rainfall adjustment. Daily rainfall
!! |within the month is adjusted to the specified
!! |percentage of the original value (used in
!! |climate change studies)
!! rhsim |none |relative humidity input code
!! |1 measured data read for each subbasin
!! |2 data simulated for each subbasin
!! slrsim |none |solar radiation input code
!! |1 measured data read for each subbasin
!! |2 data simulated for each subbasin
!! tlaps(:) |deg C/km |temperature lapse rate: temperature increase
!! |due to increase in elevation
!! tmpinc(:,:) |deg C |monthly temperature adjustment. Daily maximum
!! |and minimum temperatures within the month are
!! |raised or lowered by the specified amount
!! |(used in climate change studies)
!! tmpsim |none |temperature input code
!! |1 daily max/min read for each subbasin
!! |2 daily max/min simulated for each subbasin
!! welev(:) |m |elevation of weather station used to compile
!! |weather generator data
!! wndsim |none |wind speed input code
!! |1 measured data read for each subbasin
!! |2 data simulated for each subbasin
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!! ~ ~ ~ OUTGOING VARIABLES ~ ~ ~
!! name |units |definition
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!! frad(:,:) |none |fraction of solar radiation occuring during
!! |hour in day in HRU
!! hhsubp(:,:) |mm H2O |precipitation falling during hour in day in
!! |HRU
!! hru_ra(:) |MJ/m^2 |solar radiation for the day in HRU
!! hru_rmx(:) |MJ/m^2 |maximum solar radiation for the day in HRU
!! ifirstpet |none |potential ET data search code
!! |0 first day of potential ET data located in
!! | file
!! |1 first day of potential ET data not located
!! | in file
!! pcpband(:,:)|mm H2O |precipitation for the day in band in HRU
!! petmeas |mm H2O |potential ET value read in for day
!! rainsub(:,:)|mm H2O |precipitation for the time step during the
!! |day in HRU
!! rhd(:) |none |relative humidity for the day in HRU
!! subp(:) |mm H2O |precipitation for the day in HRU
!! tavband(:,:)|deg C |average temperature for the day in band in HRU
!! tmn(:) |deg C |minimum temperature for the day in HRU
!! tmnband(:,:)|deg C |minimum temperature for the day in band in HRU
!! tmpav(:) |deg C |average temperature for the day in HRU
!! tmx(:) |deg C |maximum temperature for the day in HRU
!! tmxband(:,:)|deg C |maximum temperature for the day in band in HRU
!! u10(:) |m/s |wind speed for the day in HRU
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!! ~ ~ ~ LOCAL DEFINITIONS ~ ~ ~
!! name |units |definition
!! ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
!! fradbsb(:) |none |hourly solar radiation fractions for subbasin
!! ib |none |counter
!! idap |julain date |day currently being simulated
!! ii |none |counter
!! inum3sprev |none |subbasin number of previous HRU
!! iyp |none |year currently being simulated
!! k |none |counter
!! pdif |mm H2O |difference in precipitation for station and
!! |precipitation for elevation band
!! rabsb |MJ/m^2 |generated solar radiation for subbasin
!! ratio |none |fraction change in precipitation due to
!! |elevation changes
!! rbsb |mm H2O |generated precipitation for subbasin
!! rhdbsb |none |generated relative humidity for subbasin
!! rmxbsb |MJ/m^2 |generated maximum solar radiation for subbasin
!! tdif |deg C |difference in temperature for station and
!! |temperature for elevation band
!! tmnbsb |deg C |generated minimum temperature for subbasin
!! tmxbsb |deg C |generated maximum temperature for subbasin
!! u10bsb |m/s |generated wind speed for subbasin
vb获取html中的inout,input conversion error-SWAT模型-Fortran语法讨论-专业Fortran论坛 -相关推荐
- vb获取html中的inout,使用带有OUT参数的VB6调用MySQL存储过程
我在MySQL(Server 5.5)中编写了这个程序 DELIMITER $$ DROP PROCEDURE IF EXISTS `InsertList` $$ CREATE DEFINER=`ro ...
- vb读取mysql多表,vb获取数据库中所有表的名称
以下是 OpenSchema 方法的三个参数: 一个枚举的值,指定所需的架构类型.示例包括 adSchemaTables. adSchemaPrimaryKeys. adSchemaColumns. ...
- Jquery获取列表中的值和input单选、多选框控制选中与取消
一.Jquery获取列表中的值 1.jsp页面代码 <tbody><c:forEach var="model" items="${listRefEnti ...
- VB 获取光标在TextBox、RichTextBox中所在的位置
'支持中文,一个汉字算一列 Option Explicit Public Const WM_USER = &H400 Public Const EM_EXGETSEL = WM_USER + ...
- 分答项目_知识点：如何获取jquery选择器生成的input元素数组中的每个input元素的值？
我最初的想法: (1)jquery选择器获取后将dom元素放到attachnew中了,在遍历数组中可以attachnew[i].value属性即可获取input元素的值: (2)此处用的attachn ...
- jquery 获取tr中的td，td中的input
var row = $("#tableid tr:visible").length; //获取table中所有tr的行数var tr = $("#tableid tr&q ...
- 使用vb获取网页源文件并保存的简单代码
使用vb获取网页源文件并保存的简单代码 Private Sub Command1_Click() Inet1.URL = "HTTP://www.wangjianran.com/" ...
- Js/Jquery获取iframe中的元素 在Iframe中获取父窗体的元素方法
在web开发中,经常会用到iframe,难免会碰到需要在父窗口中使用iframe中的元素.或者在iframe框架中使用父窗口的元素 js 在父窗口中获取iframe中的元素 1. 格式:win ...
- php 取出多重数组中的一列_PHP获取数组中指定的一列实例
对于一个多维数组(以二维数组为例),经常需要获取到其中的一列,比如有几条用户数据,是一个二维数组,现在需要获取到这几个用户的名字,可以有多种方法实现: $arr = array( array( 'id ...
最新文章
- python制作图形化界面_python图形化界面设计(wxpython)一布局管理
- 从JDK源码角度看Long
- ValueError: Program neato not found in path.
- Linux上如何查看物理CPU个数，核数，线程数
- Python3 字符串复制
- C++检查给定数字是否为4的幂的算法实现(附完整源码)
- CRM order lock will trigger product read API
- memcached应用策略（转）
- 微软Azure开源开发者（深圳）峰会等你来
- 模拟电子技术不挂科学习笔记3（放大电路的分析方法）
- Nginx实战基础篇七 最新源码包通过脚本部署LAMP搭建Discuz论坛
- 二叉树的先序、中序、后续遍历（递归）
- ATECC508A芯片开发笔记（九）：加密读写508芯片数据的流程及相应设置
- 苹果新贵 Swift 之前世今生
- Code Snippets 使用
- 51单片机C语言跑马灯,51单片机上实现控制跑马灯
- vue component组件内部自己引用自己
- RxJava(10-操作符原理自定义操作符)
- 004-python-列表、元组、字典
- 施耐德电气美国研发中心揭秘之旅