Skip to content
Snippets Groups Projects
Commit ce38e519 authored by Georgiy Faikin's avatar Georgiy Faikin
Browse files

Отделение ROTHC 6

parent dddcd6ad
No related branches found
No related tags found
1 merge request!1Rothc
......@@ -78,11 +78,11 @@ module carbon_model_inmcm_aux
integer :: k = 1 !< Номер месяца с начала работы программы
! ------ Climate variables --------
real :: Tempy(0:mnc) !< Средняя температура в месяц, [Celsius]
real :: MOI(0:mnc) !< Средняя влажность почвы в месяц, [dim]
real :: Tempy(0:mnc-1) !< Средняя температура в месяц, [Celsius]
real :: MOI(0:mnc-1) !< Средняя влажность почвы в месяц, [dim]
! ------ Litterfall --------
real :: lambdac(0:mnc) !< Поступление углерода в почву, [kg/m**3 / year]
real :: lambdac(0:mnc-1) !< Поступление углерода в почву, [kg/m**3 / year]
real :: worky !< Переменная для вывода значений опада (lambdac)
contains
......
module carbon_model_rothc
use carbon_model_to_core, only : set_tiles, set_pool, set_flux, set_mult
use carbon_model_user_aux
use carbon_model_rothc_aux
implicit none
......
......@@ -112,7 +112,7 @@
testing_log_mode = 'read' ! none, write, read
nv_singlecolumn = 12
nv_singlecolumn = 1
environment_model_type = 'inmcm' ! inmcm
......
......@@ -65,18 +65,18 @@ implicit none
! Для деревьев, для кустарников, для натуральной травы, для СХ (/ 0.25, 0.33, 0.67, 1.44 /)
real :: bettar !< Fraction of soil respiration, [%] from 0 to 1
! ------ Climate variables --------
real :: MOI(mnc) !< Средняя влажность почвы в месяц, [dim]
real :: MOI(0:mnc-1) !< Средняя влажность почвы в месяц, [dim]
real :: s0 !< Оптимальная влажность почвы, [dim]
real :: s !< Влажность почвы в день, [dim]
real :: smin !< Переменные для функций, [dim]
real :: sw !< Влажность увядания DAO: 0.120 Rostov: 0.146
real :: Temp(mnc) !< Средняя температура в месяц, [Celsius]
real :: Temp(0:mnc-1) !< Средняя температура в месяц, [Celsius]
real :: Tsoil !< Температура почвы в день, [K]
real :: veg !< Концентрация растения в день, [%]
real :: vegy(mnc) !< Средняя концентрация растений в месяц, [%]
real :: vegy(0:mnc-1) !< Средняя концентрация растений в месяц, [%]
! ------ Litterfall --------
real :: lambdac(mnc) !< Поступление углерода в почву, [kg/m**3 / year]
real :: lambdac(0:mnc-1) !< Поступление углерода в почву, [kg/m**3 / year]
real :: work !< Переменная для вывода значений опада (lambdac)
contains
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment