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

Little fix: the year_min and year_max variables are now set in the grid file

parent fe0b1950
No related branches found
No related tags found
No related merge requests found
......@@ -7,13 +7,13 @@ module carbon_model_to_core_arg_kit
! ---------------------------------------------------------------------------------
use carbon_core, only: arg_kit_type, narg_default
use grid, only: date_c, date_fst, date_lst,first_date,last_date
use grid, only: year_min, year_max
implicit none
private
public :: set_args
public :: get_args
public :: year_min, year_max, nmonth
public :: nmonth
! параметры
! ---------------------------------------------------------------------------------
......@@ -22,15 +22,6 @@ module carbon_model_to_core_arg_kit
integer, parameter :: nmonth = 12
integer, parameter :: year_min = 1900 !< предусмотренный диапазон лет @todo прописать allocatable, т.к. требуется для типа переменной x_year, иначе ошибка
integer, parameter :: year_max = 2025 !<
! Для случая Rostov: 1975 - 2018
! Для случая DAO3: 1937 - 2012
! Для случая DAO4: 1935 - 2012
! Для случая TRGK: 1956 - 2018
! Для случая VLDMR: 1968 - 2018
contains
......
......@@ -34,8 +34,8 @@ contains
call set_pool(pid = n_Catm, name = 'catm' )
call set_pool(pid = n_Cveg, name = 'cveg' , alias = Cveg )
call set_pool(pid = n_Csoil, name = 'csoil' ,initial_value = 2.983218, alias = Csoil )
call set_pool(pid = n_Csoilb, name = 'csoilb' ,initial_value = 0.060882, alias = Csoilb )
call set_pool(pid = n_Csoil, name = 'csoil' ,initial_value = 8.730624, alias = Csoil )
call set_pool(pid = n_Csoilb, name = 'csoilb' ,initial_value = 0.178176, alias = Csoilb )
! station: opt: С1: С2:
! ROST 1 8.730624 0.178176
......
......@@ -244,11 +244,6 @@ module config
! тест на сочетания настроек
! -----------------------------------------------------------------------------
!if (carbon_model_type == 'socs' .and. environment_data_type == 'station' &
! & .and. (station_name == 'VLDMR' .or. station_name == 'TRGK' )) then
! stop "check failed : this carbon_model_type can't work with this station name"
!endif
if ((station_name == 'Rostov' .or. station_name == 'VLDMR' .or. station_name == 'TRGK' ) .and. station_opt == '4') then
stop "check failed : this station name can't work with this station_opt"
endif
......
......@@ -55,7 +55,7 @@ module grid
character(len_default) :: DL
character(len_default) :: DI
type(date_type) :: date_c, date_fst, date_lst
integer :: last_date, first_date
integer :: year_min, year_max
! текущие индексы в циклах:
integer :: tt
......@@ -481,8 +481,8 @@ contains
date_c = date_fst
first_date = date_fst%y
last_date = date_lst%y
year_min = date_fst%y
year_max = date_lst%y
end subroutine
......
......@@ -3,8 +3,7 @@ program main
!< @brief главная программа
!< @details максимально обобщенный аналог tm.f90 из модели land
use config, only : config_init, &
& carbon_model_type, environment_data_type, lsm_datafile
use config, only : config_init, carbon_model_type, environment_data_type, lsm_datafile
use grid, only : grid_init, &
& i0, i1, j0, j1, ntime, ii, jj, tt, nn, mask, date_c, dt, &
& dlon, dlat, dlon_nc, dlat_nc, dt_nc, date_fst, date_lst, ncell_tot, ncell_mask
......
......@@ -12,7 +12,7 @@
! -----------------------------------------------------------------
!> Углеродная модель:
carbon_model_type = 'rothc'
carbon_model_type = 'inmcm'
!
! 'inmcm' - модель inmc [1,2]
! 'socs' - модель SOCS [3]
......@@ -33,7 +33,7 @@
! дополнительно для environment_data_type = 'station':
!> Имя станции:
station_name = 'DAO4'
station_name = 'Rostov'
! 'DAO4' - Станция в Долгопрудном 2
! 'DAO3' - Станция в Долгопрудном 1
! 'TRGK' - Данные Торжок
......@@ -133,7 +133,7 @@
testing_log_mode = 'read' ! none, write, read
nv_singlecolumn = 1 ! Для модели INMCM нужно поставить 12, для RothC и SOCS 1
nv_singlecolumn = 12 ! Для модели INMCM нужно поставить 12, для RothC и SOCS 1
environment_model_type = 'inmcm' ! inmcm
......
......@@ -17,8 +17,8 @@
module carbon_model_user_aux
use const, only : yrs, day2sec, pi
use carbon_model_to_core_arg_kit, only : year_min, year_max, nmonth
use grid, only : dt
use carbon_model_to_core_arg_kit, only : nmonth
use grid, only : dt, year_min, year_max
implicit none
! ------- Pools -------
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment