7 !! Computation of the basal temperatures.
11 !! Copyright 2009-2013 Ralf Greve
15 !! This file is part of SICOPOLIS.
17 !! SICOPOLIS is free software: you can redistribute it and/or modify
18 !! it under the terms of the GNU General Public License as published by
19 !! the Free Software Foundation, either version 3 of the License, or
20 !! (at your option) any later version.
22 !! SICOPOLIS is distributed in the hope that it will be useful,
23 !! but WITHOUT ANY WARRANTY; without even the implied warranty of
24 !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25 !! GNU General Public License for more details.
27 !! You should have received a copy of the GNU General Public License
28 !! along with SICOPOLIS. If not, see <http://www.gnu.org/licenses/>.
30 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
33 !> Computation of the basal temperatures.
34 !<------------------------------------------------------------------------------
48 if ( (maske(j,i) == 0).or.(maske(j,i) == 3) )
then
51 if (n_cts(j,i) == -1)
then
53 temp_b(j,i) = temp_c(0,j,i)
54 temph_b(j,i) = temp_c(0,j,i) - temp_c_m(0,j,i)
59 temp_b(j,i) = temp_t_m(0,j,i)
67 temp_b(j,i) = temp_c(0,j,i)
68 temph_b(j,i) = temp_c(0,j,i) - temp_c_m(0,j,i)