Skip to content

Commit

Permalink
Set new traits also with random trait generation
Browse files Browse the repository at this point in the history
  • Loading branch information
jahn committed Jun 11, 2024
1 parent 233ff02 commit 4d93f34
Showing 1 changed file with 14 additions and 0 deletions.
14 changes: 14 additions & 0 deletions pkg/darwin/darwin_generate_random.F
Original file line number Diff line number Diff line change
Expand Up @@ -521,6 +521,7 @@ SUBROUTINE DARWIN_GENERATE_RANDOM( myThid )
ExportFracExude(np)=DARWIN_UNINIT_RL
#endif
ENDIF
FracExudeC(np) = 0.3 _d 0
#ifdef DARWIN_TWO_SPECIES_SETUP
IF(physize(np) .EQ. 1)then
mortdays = Bigmort
Expand Down Expand Up @@ -556,6 +557,7 @@ SUBROUTINE DARWIN_GENERATE_RANDOM( myThid )
c.......................................................
phytoTempCoeff(np) = tempcoeff1
phytoTempExp1(np) = tempcoeff3
phytoTempAe(np) = 0.0438 _d 0
IF(physize(np) .EQ. 1)then
phytoTempExp2(np) = tempcoeff2_big
ELSE
Expand Down Expand Up @@ -881,6 +883,11 @@ SUBROUTINE DARWIN_GENERATE_RANDOM( myThid )
ksatDOP(np) = 1.0 _d 0
ksatDOFe(np) = 1.0 _d 0

hetTempAe(np) = 0.0438 _d 0
hetTempExp2(np) = 0.001 _d 0
hetTempOptimum(np) = 2 _d 0
hetDecayPower(np) = 4 _d 0

ENDDO ! np

#ifdef ALLOW_RADTRANS
Expand Down Expand Up @@ -937,6 +944,8 @@ SUBROUTINE DARWIN_GENERATE_RANDOM( myThid )
ExportFracExude(iMinPred) = DARWIN_UNINIT_RL
ExportFracExude(iMaxPred) = DARWIN_UNINIT_RL
#endif
FracExudeC(iMinPred) = 0.3 _d 0
FracExudeC(iMaxPred) = 0.3 _d 0
mort(iMinPred) = ZoomortSmall
mort(iMaxPred) = ZoomortBig
mort2(iMinPred) = ZoomortSmall2
Expand Down Expand Up @@ -990,6 +999,7 @@ SUBROUTINE DARWIN_GENERATE_RANDOM( myThid )
#else
ExportFracExude(nz) = DARWIN_UNINIT_RL
#endif
FracExudeC(nz) = 0.3 _d 0
mort(nz) = Zoomort
mort2(nz) = Zoomort2
dmzoo(nz) = ZooDM
Expand Down Expand Up @@ -1019,6 +1029,10 @@ SUBROUTINE DARWIN_GENERATE_RANDOM( myThid )
tempMort(nz) = 0
tempMort2(nz) = 0
tempGraz(nz) = 0
grazTempAe(nz) = 0.0438 _d 0
grazTempExp2(nz) = 0.001 _d 0
grazTempOptimum(nz) = 2 _d 0
grazDecayPower(nz) = 4 _d 0

respRate(nz) = 0.0 _d 0
biosink(nz) = 0.0 _d 0
Expand Down

0 comments on commit 4d93f34

Please sign in to comment.