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

Big upgrade: add humidity of soil, carbon intake, initialization

parent 024fe212
No related branches found
No related tags found
No related merge requests found
Showing
with 211 additions and 4 deletions
...@@ -38,9 +38,7 @@ implicit none ...@@ -38,9 +38,7 @@ implicit none
real, dimension(:,:,:), pointer :: respiration3 !< Между почвой BIO и атмосферой ! 3 - BIO real, dimension(:,:,:), pointer :: respiration3 !< Между почвой BIO и атмосферой ! 3 - BIO
real, dimension(:,:,:), pointer :: respiration4 !< Между почвой HUM и атмосферой ! 4 - HUM real, dimension(:,:,:), pointer :: respiration4 !< Между почвой HUM и атмосферой ! 4 - HUM
! ------- Serve value ------- ! ------- Serve value -------
integer, parameter :: ntiles = 1 !< ? integer, parameter :: ntiles = 4 !< В данном случае, номер пула
integer, parameter :: ntiles2 = 4 !< В данном случае, номер пула
!integer, parameter :: ntiles3 = 6
integer :: k = 1 !< Номер месяца с начала работы программы integer :: k = 1 !< Номер месяца с начала работы программы
integer :: ik = 1 !< Номер месяца с начала работы программы integer :: ik = 1 !< Номер месяца с начала работы программы
real :: work !< Переменная для вывода значений опада (lambdac) real :: work !< Переменная для вывода значений опада (lambdac)
...@@ -62,7 +60,7 @@ implicit none ...@@ -62,7 +60,7 @@ implicit none
real :: Ft, Fs, Fv, Fa !< Функции температуры, влажности, фракции растительного покрова, общая функция, [dim] real :: Ft, Fs, Fv, Fa !< Функции температуры, влажности, фракции растительного покрова, общая функция, [dim]
real :: fdpm !< Функция определяющая разлагаемую часть опада, [dim] real :: fdpm !< Функция определяющая разлагаемую часть опада, [dim]
! ------- Coefficients ------------ ! ------- Coefficients ------------
real, parameter :: ks(ntiles2) = (/ 3.22*(1.E-7), 9.65*(1.E-9), 2.12*(1.E-8), 6.43*(1.E-10)/) real, parameter :: ks(ntiles) = (/ 3.22*(1.E-7), 9.65*(1.E-9), 2.12*(1.E-8), 6.43*(1.E-10)/)
!< Скорость дыхания единицы массы каждого пула в стандартных условиях, [1-s] !< Скорость дыхания единицы массы каждого пула в стандартных условиях, [1-s]
real, parameter :: alphadr = 1.44 !< Определяет соотношение поступления опада между DPM и RPM, [dim], real, parameter :: alphadr = 1.44 !< Определяет соотношение поступления опада между DPM и RPM, [dim],
! Для деревьев, для кустарников, для натуральной травы, для СХ (/ 0.25, 0.33, 0.67, 1.44 /) ! Для деревьев, для кустарников, для натуральной травы, для СХ (/ 0.25, 0.33, 0.67, 1.44 /)
......
-0.107330377706129
-0.111953741824522
-0.119411314849771
-0.0800823387095461
-0.0540184283468696
-0.0618697356696542
-0.0736800695087773
-0.116039068788428
-0.069490283812941
-0.0827194017747909
-0.0459665923375067
\ No newline at end of file
-0.0669279308277201
-0.0982591618977875
-0.123203662104611
-0.070245855615335
-0.0484840804976778
-0.0478681099344896
-0.0629719617754227
-0.0936789414892516
-0.0640398646922091
-0.0750392822339065
-0.04600757676471
\ No newline at end of file
-0.0439867076287757
-0.0876103375842558
-0.101015324183283
-0.066437490655545
-0.0429795295839206
-0.0512226790220625
-0.0650029046690877
-0.0838622785501909
-0.0690448463440619
-0.0594841788520159
-0.0318139192991416
\ No newline at end of file
0
-0.0669662163526616
-0.155449847325348
-0.110997502328185
-0.0602060667973772
-0.0578203101216153
-0.0996232292275704
-0.120827131118192
-0.0904459897723391
-0.0914533754589919
-0.0398783577180569
\ No newline at end of file
-0.0590077723645136
-0.0670387636137481
-0.123255212465799
-0.0931229895177579
-0.0598924321497125
-0.0600796280064145
-0.107775359299876
-0.1179112626944
-0.0916807594240735
-0.110561887209765
-0.0483775739385381
\ No newline at end of file
0
-0.0399715955425064
-0.133080155492819
-0.123469750641924
-0.0692035305510418
-0.0498438534564284
-0.0797323495079675
-0.101890245037492
-0.0804888102620528
-0.0953741019144556
-0.0485104442549541
\ No newline at end of file
0
-0.0687393335837719
-0.109530649907727
-0.0821342109641369
-0.0624078076865196
-0.05334451565346
-0.0698509075098631
-0.107128750999063
-0.0836326564648482
-0.110811845627742
-0.04535090146437
\ No newline at end of file
-0.0615060684209198
-0.0731740858215872
-0.134195253826434
-0.0896259086921613
-0.0681892709421028
-0.054685631522498
-0.0710989099092016
-0.107005488099053
-0.0829404767494741
-0.105011020244173
-0.0429928164534088
\ No newline at end of file
-0.0627949569556495
-0.052485959042042
-0.125301491913439
-0.123718706003358
-0.0803719425261132
-0.0507853949429201
-0.0851883590415649
-0.0997987753928175
-0.0716953606255711
-0.107967128321295
-0.0402137577774609
\ No newline at end of file
0
-0.0605354999789365
-0.101335146522994
-0.108398406932324
-0.0793528870736238
-0.0472678815140666
-0.0774479609383547
-0.105611910205251
-0.078602900750077
-0.109318787556599
-0.0414743756653335
\ No newline at end of file
-0.0783067953034041
-0.0542435316852933
-0.0957918987493116
-0.111207340645895
-0.0760006747062153
-0.0461752011413095
-0.0786435458526934
-0.0841166890921436
-0.0756916570716871
-0.086286947502543
-0.0399734666488001
\ No newline at end of file
0
-0.054715143465247
-0.105685331236731
-0.122689195264385
-0.0731243294313521
-0.050182439520424
-0.0803959928746945
-0.0891319470891744
-0.0763365293173866
-0.0929791805224881
-0.0400104630509834
\ No newline at end of file
-0.0401443904537532
-0.098584971776171
-0.161960628369266
-0.116864647283811
-0.0695058309767073
-0.0681053452025572
-0.142580094582565
-0.133773017614848
-0.0962401631849348
-0.10195502797309
-0.0552993967433537
\ No newline at end of file
0
-0.09499194451225
-0.142006216317668
-0.109686396000699
-0.0714756565241714
-0.0720607413163946
-0.142980134733939
-0.138854805083604
-0.0936385903893635
-0.106554659033907
-0.0516415673152989
\ No newline at end of file
-0.0401132893919404
-0.0848226744217871
-0.123450763973922
-0.112611118897281
-0.114899110803993
-0.0773075377494201
-0.140400628170943
-0.131469000915121
-0.105667397260565
-0.105870960592267
-0.048754325868472
\ No newline at end of file
0
-0.0879765676444368
-0.126815824692504
-0.119132063161092
-0.111010405364054
-0.0804711322215991
-0.14718589230287
-0.147781430956839
-0.10173056866629
-0.103927466020418
-0.0522090889156418
\ No newline at end of file
0
-0.0767655787477248
-0.15142901847423
-0.137622520463346
-0.12338216339874
-0.081498224014295
-0.169932045889368
-0.139323287928477
-0.0924070199146517
-0.0814743677122149
-0.045536215440959
\ No newline at end of file
-0.0757495621289783
-0.0712358677955802
-0.144790854575572
-0.136525646734385
-0.125399123247451
-0.0794209692024157
-0.176169120813536
-0.140036050198507
-0.0909889097459061
-0.0905464781641782
-0.0482404103643707
\ No newline at end of file
0
-0.142770991951162
-0.151762955375769
-0.107110597290197
-0.0829814471426759
-0.0548674671003003
-0.136557761497312
-0.129380225654694
-0.082104896629144
-0.0858193071699193
-0.037802772700657
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment