Delete protokoll_merge21_22_mg.txt

protokoll_merge21_22_mg.txt

-old_out.f
-!  01.08.18 mg OUT_ALL: Ausgabe des NSC-Speichers
-partitio.f
-!* 01.08.18 mg partition: Implementierung NSC-Speicher
-prepstand.f
-!* 01.08.18 mg read_stand_threemore: neue subroutine 
-!* 01.08.18 mg read_stand: Implementierung NSC-Speicher
-finisim.f
-! 01.08.18 MG finish_simul: output of new tree.ini at the end of the simulation
-stand_bal.f
-! 01.08.18 mg  senescence: balance fine root and leave disturbance, not finnished
-dist_manag.f
-! 01.08.18 mg second final version of subroutines for biotic disturbances
-amod_par.f
-! 01.08.18 MG Implementation of fraction of dry matter for NSC-pool
-amod_stand.f
-! 01.08.18 MG type_cohort: Variablen fuer NSC-pool implementiert
-daily.f
-!   01.08.18 MG stand_daily: changes to call of disturbance routines
-soil_cn_link.f
-!  01.08.18 MG  s_cn_gener: litter initialisation for disturbed fine root and foliage c-content auch fuer flag_dis=2
-prepsite.f
-! 01.08.18 MG prepare_site: disturbance ini auch fuer flag_dis=2
-simul.f
-! 01.08.18 MG simulation_4c: implementierung von flag_dis=2
-soil.f
-!  01.08.18 MG  upt_wat: implementierung der xylem_clogger disturbance xylem_dis
-npp.f  --> Fragen Mistel
-alt:::  ! limiting function (preliminary, must be replaced by something more meaningful)
-  select case(flag_limi)
-   case(0,2,4,6,8,14)
-      drLimF = 1.0
-
-   case default    
-      if (p%coh%species.eq.nspec_tree+2) then     !set drought limitation to 0 for mistletoe
-       drLimF = 1.0
-      else
-       drLimF = p%coh%drIndPS
-      end if
-   end select  
-neu::::  ! limiting function (preliminary, must be replaced by something more meaningful)
-  select case(flag_limi)
-   case(0,2,4,6,8,14)
-      drLimF = 1.0
-
-   case default    
-      drLimF = p%coh%drIndPS
-   
-   end select 
-   
\ No newline at end of file