%% Varying the Temperature (T1D) for sardine %Clear workspace clc clear all globalvariables_Sardine Varmat_Sardine SO_Dev = 0; % Fianl Oocyte development time %Make it between 11 and 18 SO_DevTime1 = 18; SO_DevTime2 = 11; %Akkers et al 1996 Starve(1) = 0; SpM3(1) = 0; %Test variables %Pre-assign matrix Sam = 10; %number of years the fish live %Froese et al. 2010 j = 1; %number of times fish feed M = 365; %number of days in a year N = (M*Sam*j); %number of days * number of years * number of feedings fn = 7; %number of values for f Vn = 39; %number of variables in matrix n = (N-1)*fn; %Max number of rows in matrix SNC = zeros (Vn,n); %Figure_Hold % Setting up the Matrix for saving Sardine_label; fname = 'SardinerecruitTf_WBL_W.csv'; txt=sprintf('%s,', hdrS{:}); txt(end)=''; dlmwrite(['D:\UCT\PhD\Model output\',fname],txt,''); mydata_Sardinops_sagax for f1 = [0.8 1.0]; Parameters_Sardine Startvalue_Sardine for d = 2:1:N; %2191 if they eat once a day if SL(d-1) < SLj; T1D(d) = 23; f = 0.8; else T1D(d) = 17.5; f = f1; end TK(d) = T1D(d)+273; Sparameter_calc Starve(d) = Starve(d-1) + 0; Spawn = 0; Sardine Sardine_Save fprintf('d = %f\nTemp = %f\nLength = %f\nWet Weight = %f\n\n',d,T1D(d),SL(d),SW_ww(d)); if SL(d) >= SLp; disp('Recruited') %Stop the starve and reset for new spawn d = 2; % Break out of inner loop and go to next spawn break end end %SPrint end %hold off % copy file to R plotting folder %copyfile('SardineTemp.csv','d:/UCT/PhD/Model/Sardine/R plotting/')