Last change
on this file since 39 was
39,
checked in by vancop, 7 years ago
|
add tank mass and salt balance
|
File size:
582 bytes
|
Line | |
---|
1 | !----------------------------- |
---|
2 | ! Water tank shared variables |
---|
3 | !----------------------------- |
---|
4 | |
---|
5 | REAL(8) :: v_w !: volume of water in the tank [m3] |
---|
6 | REAL(8) :: ms_w !: mass of salt in the water [kg NaCl] |
---|
7 | REAL(8) :: dms_i !: change of mass of salt in the ice [kg NaCl] |
---|
8 | REAL(8) :: s_w !: salinity of the water in the tank [g/kg] |
---|
9 | REAL(8) :: a_tank !: area of the tank [m2] |
---|
10 | |
---|
11 | LOGICAL :: ln_tank |
---|
12 | |
---|
13 | COMMON/wat_tank_var/v_w, ms_w, dms_i, s_w, a_tank |
---|
Note: See
TracBrowser
for help on using the repository browser.