!----------------------------- ! Water tank shared variables !----------------------------- REAL(8) :: v_w !: volume of water in the tank [m3] REAL(8) :: ms_w !: mass of salt in the water [kg NaCl] REAL(8) :: dms_i !: change of mass of salt in the ice [kg NaCl] REAL(8) :: s_w !: salinity of the water in the tank [g/kg] REAL(8) :: a_tank !: area of the tank [m2] LOGICAL :: ln_tank COMMON/wat_tank_var/v_w, ms_w, dms_i, s_w, a_tank