Commit 5e256d181cf2de1fd1bf34c66ed2bf86ca3fcf63

Authored by Jérémy Baudry
1 parent d380ec6c
Exists in master

nettoyage!

WIM2 deleted
No preview for this file type
output/Energy_spectrum.dat deleted
... ... @@ -1,10 +0,0 @@
1   - 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000
2   - 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000
3   - 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000
4   - 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000
5   - 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000
6   - 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000 0.0000000000000000
7   - 4.67950925783336522E-067 2.22629063774832403E-043 1.86047825022193849E-029 7.26884501201403012E-021 2.37388636149809682E-015 1.06929631400098977E-011 3.26805736321345173E-009 1.74290715738444442E-007 2.89921538309260074E-006 2.17440833634750726E-005 9.35026054732778790E-005 2.70691375180493105E-004 5.88858707265495782E-004 1.04046745784872399E-003 1.58646763233278709E-003 2.21413746427823362E-003 3.03256060311372574E-003 4.36234121430526846E-003 6.65167145503830007E-003 9.67152294436269058E-003 1.12773173537781685E-002 1.02218877788641249E-002 7.91893718082620560E-003 5.73020415903088484E-003 4.21942005067637953E-003 3.31030307813106120E-003 2.77627384988582675E-003 2.44069346588253726E-003 2.19977333455199150E-003 2.00224635066572655E-003 1.82692365653251698E-003 1.66659906324478652E-003 1.51918118656764727E-003 1.38394576701342861E-003 1.26034009460873099E-003 1.14772599771339892E-003 1.04537854225776085E-003 9.52528217916501479E-004 8.68398034709047962E-004 7.92229374888612971E-004 7.23298493270941277E-004 6.60926203581860619E-004 6.04482786654046526E-004 5.53389628981113338E-004 5.07118685465212347E-004 4.65190549475677723E-004 4.27171683928026036E-004 3.92671199296484299E-004 3.61337442763468887E-004 3.32854575163448927E-004 3.06939249970022651E-004 2.83337464540176550E-004 2.61821623141505273E-004 2.42187830234146884E-004 2.24253418333657207E-004 2.07854705551948184E-004 1.92844972152353476E-004 1.79092642113339549E-004 1.66479654018151678E-004 1.54900005033988496E-004 1.44258451929288615E-004
8   - 6.52602436873789001E-066 3.10477576885178824E-042 2.59461531743540874E-028 1.01371013641173847E-019 3.31061215827662809E-014 1.49123624253775803E-010 4.55761936041964985E-008 2.43065115481894441E-006 4.04323385162878518E-005 3.03242092465927718E-004 1.30398349108432760E-003 3.77505078738318801E-003 8.21219931753570422E-003 1.45103163829264376E-002 2.21248123646438609E-002 3.08782700310448743E-002 4.22919654715200669E-002 6.08370311943501954E-002 9.27639365938913857E-002 0.13487866128710674 0.15727300409022502 0.14255402663795091 0.11043717229550717 7.99131915746931071E-002 5.88438585233288097E-002 4.61653506072852299E-002 3.87178009495667275E-002 3.40378107133899738E-002 3.06779484685386107E-002 2.79232452736102171E-002 2.54782021905330253E-002 2.32423220051220167E-002 2.11864383588354389E-002 1.93004507586400503E-002 1.75766511339743060E-002 1.60061395693864156E-002 1.45788061641501515E-002 1.32839193589109929E-002 1.21106432833499641E-002 1.10483982855648262E-002 1.00870910449765618E-002 9.21724965773377571E-003 8.43009208622318151E-003 7.71754901027740543E-003 7.07225633467517718E-003 6.48752827425853277E-003 5.95731873867440080E-003 5.47617639866981344E-003 5.03919711851076851E-003 4.64197621818215975E-003 4.28056215867802983E-003 3.95141262958358368E-003 3.65135359017345479E-003 3.37754152163295901E-003 3.12742895073536741E-003 2.89873317660003247E-003 2.68940805181255242E-003 2.49761862258705098E-003 2.32171840926017475E-003 2.16022910068454019E-003 2.01182243866920765E-003
9   - 1.51826113888746689E-065 7.22317314257711228E-042 6.03629926007493500E-028 2.35836800362409231E-019 7.70204568943687947E-014 3.46931900345249416E-010 1.06031727278158217E-007 5.65484126634858119E-006 9.40646936865404326E-005 7.05484164097563591E-004 3.03368076550261222E-003 8.78254904359004537E-003 1.91054497870714324E-002 3.37578412711627140E-002 5.14727511275170635E-002 7.18374231772530014E-002 9.83910632791546585E-002 0.14153563494205867 0.21581267868903800 0.31379139630301978 0.36589120238369222 0.33164791702760277 0.25692896242941149 0.18591578332673386 0.13689857501319794 0.10740238440714167 9.00758704587491243E-002 7.91880053444266735E-002 7.13713807194720773E-002 6.49626415335383123E-002 5.92743178525471648E-002 5.40726057458935511E-002 4.92896505041330452E-002 4.49019536154772816E-002 4.08915824714526366E-002 3.72378316701078918E-002 3.39171808129226510E-002 3.09046632301343722E-002 2.81750695754676914E-002 2.57037865875577448E-002 2.34673324411283565E-002 2.14436710193704506E-002 1.96123711597949932E-002 1.79546598169226489E-002 1.64534046311945355E-002 1.50930513122575320E-002 1.38595338016561341E-002 1.27401697358372704E-002 1.17235497815161259E-002 1.07994265750325294E-002 9.95860697248665723E-003 9.19284988873881638E-003 8.49477100768124271E-003 7.85775496309692838E-003 7.27587513046845918E-003 6.74382087066400984E-003 6.25683187951033004E-003 5.81063918884650032E-003 5.40141231023485904E-003 5.02571199454080342E-003 4.68044808659517312E-003
10   - 1.95873867346487579E-065 9.31875829336317988E-042 7.78754886262852974E-028 3.04257712763802231E-019 9.93656122144324420E-014 4.47583694833191780E-010 1.36793624966385249E-007 7.29542237300393300E-006 1.21354718639815330E-004 9.10159049942831566E-004 3.91381145584134525E-003 1.13305399332603515E-002 2.46483180089165331E-002 4.35516575751703355E-002 6.64060125631479731E-002 9.26788780765710474E-002 0.12693625347575638 0.18259791727104541 0.27842419801512130 0.40482847620644036 0.47204346474590375 0.42786552617163764 0.33146912751284846 0.23985362299165147 0.17661555469770751 0.13856193679222009 0.11620865903401190 0.10216200926826749 9.20776274997427147E-002 8.38095865349079566E-002 7.64709678376607194E-002 6.97601363406503278E-002 6.35895513434259207E-002 5.79288969519493741E-002 5.27550379539480363E-002 4.80412619015349179E-002 4.37572246641666704E-002 3.98707162482138042E-002 3.63492135782859244E-002 3.31609625999054469E-002 3.02756689466330414E-002 2.76649033890685007E-002 2.53023072810697643E-002 2.31636611459887093E-002 2.12268621884786034E-002 1.94718435114342031E-002 1.78804582151066184E-002 1.64363445318617719E-002 1.51247830555507421E-002 1.39325534599805262E-002 1.28477954886866003E-002 1.18598771550093816E-002 1.09592718069343419E-002 1.01374448298839851E-002 9.38675016854672271E-003 8.70033646251960023E-003 8.07206234939613146E-003 7.49642034906078739E-003 6.96846867274685845E-003 6.48377027723753656E-003 6.03833849233373354E-003
output/WIM-OUTPUT deleted
No preview for this file type
output/advection.m deleted
... ... @@ -1,42 +0,0 @@
1   -function E = advection(E,c,dx,dt)
2   -%ADVECTION is a 1d advection code Lax Wendroff scheme with Superbee flux limiter
3   -%
4   -% E = advection(E,c,dx,dt)
5   -%
6   -% INPUTS:
7   -% E = vector of the thing to be advected;
8   -% c = scalar speed;
9   -% dx = the spatial resolution;
10   -% dt = the temporal resolution;
11   -%
12   -% OUTPUT:
13   -% E = vector of the thing to be advected - after advection;
14   -
15   -if ~isequal(size(E),size(c))
16   - c = c';
17   -end
18   -
19   -f = flux(E,c,dx,dt);
20   -E = E-dt*diffl(f)/dx;
21   -
22   -function f = flux(E,c,h,dt)
23   - % Lax-Wendroff with Superbee flux limiting;
24   - theta = diffl(E)./(diffr(E)+3e-14);
25   - phi = limiter(theta);
26   - f = c.*E+c/2.*(1-c*dt/h).*diffr(E).*phi;
27   -end
28   -
29   -
30   -function y = diffl(x)
31   -y = [x(1);diff(x)];
32   -end
33   -
34   -function y = diffr(x)
35   -y = [diff(x);-x(end)];
36   -end
37   -
38   - % Superbee
39   -function phi = limiter(r)
40   - phi = max(0,max(min(1,2*r),min(r,2)));
41   -end
42   -end
output/advection.m~ deleted
... ... @@ -1,42 +0,0 @@
1   -function E = advection(E,c,dx,dt)
2   -%ADVECTION is a 1d advection code Lax Wendroff scheme with Superbee flux limiter
3   -%
4   -% E = advection(E,c,dx,dt)
5   -%
6   -% INPUTS:
7   -% E = vector of the thing to be advected;
8   -% c = scalar speed;
9   -% dx = the spatial resolution;
10   -% dt = the temporal resolution;
11   -%
12   -% OUTPUT:
13   -% E = vector of the thing to be advected - after advection;
14   -
15   -if ~isequal(size(E),size(c))
16   - c = c';
17   -end
18   -
19   -f = flux(E,c,dx,dt);
20   -E = E-dt*diffl(f)/dx;
21   -
22   -function f = flux(E,c,h,dt)
23   - % Lax-Wendroff with Superbee flux limiting;
24   - theta = diffl(E)./(diffr(E)+3e-14);
25   - phi = limiter(theta);
26   - f = c.*E+c/2.*(1-c*dt/h).*diffr(E).*phi;
27   -end
28   -
29   -
30   -function y = diffl(x)
31   -y = [0;diff(x)];
32   -end
33   -
34   -function y = diffr(x)
35   -y = [diff(x);0];
36   -end
37   -
38   - % Superbee
39   -function phi = limiter(r)
40   - phi = max(0,max(min(1,2*r),min(r,2)));
41   -end
42   -end
output/data_treatment.m~ deleted
... ... @@ -1,79 +0,0 @@
1   -clear all;
2   -close all;
3   -
4   -
5   -x=ncread('simulation1.nc','x_axis');
6   -t=ncread('simulation1.nc','time');
7   -om=ncread('simulation1.nc','omega');
8   -spectre=ncread('simulation1.nc','Spectrum');
9   -Dave=ncread('simulation1.nc','Dave');
10   -Dmax=ncread('simulation1.nc','Dmax');
11   -
12   -
13   -f=om/(2*pi);
14   -E=reshape(spectre(end,end,:),length(om),1);
15   -Ei=reshape(spectre(30,:,:),length(x),length(om));
16   -E1=reshape(spectre(1,1,:),length(om),1);
17   -
18   -
19   -
20   -
21   -
22   -figure(1)
23   -cmap=rand(length(t),3);
24   - w = waitforbuttonpress;
25   -for i=1:length(t)
26   -
27   - figure(1)
28   -
29   - sp=reshape(spectre(i,:,:),length(x),length(om));
30   - h=mesh(f,x,sp);
31   - axis([min(f) max(f) min(x) max(x) 0 max(E1)])
32   - xlabel('Frequency [s^{-1}]')
33   - zlabel('Energy')
34   -
35   - ylabel('x [km]')
36   - pause(0.1)
37   -
38   -end
39   -
40   -for i=1:length(om)
41   - EE(i)=sum(Ei(:,i));
42   -
43   -end
44   -figure
45   -plot(E1)
46   -hold on
47   -plot(EE,'r')
48   -
49   -for
50   -
51   -
52   -
53   -
54   -
55   -
56   -
57   -% figure
58   -%
59   -% subplot(1,2,1)
60   -%
61   -% plot(T,E,'color','r')
62   -% hold on
63   -% plot(T,Ei,'--b')
64   -% grid on
65   -% xlabel('Frequency [s^{-1}]')
66   -% ylabel('Energy')
67   -%
68   -%
69   -% subplot(1,2,2)
70   -%
71   -% plot(x,Dmax,'color','r')
72   -% hold on
73   -% plot(x,Dave,'--b')
74   -% grid on
75   -%
76   -% xlabel('x [km]')
77   -% ylabel('Floe size [m]')
78   -%
79   -% legend('Dmax','<D>')
80 0 \ No newline at end of file
output/ferret.jnl deleted
... ... @@ -1,10 +0,0 @@
1   - ! NOAA/PMEL TMAP
2   - ! FERRET v6.93
3   - ! Linux 2.6.32-504.el6.x86_64 64-bit - 11/13/14
4   - ! 1-Oct-15 15:51
5   -
6   -use simulation1
7   -use simulation1.nc
8   -show data
9   -use simulation1.nc
10   -exit
output/ferret.jnl.~1~ deleted
... ... @@ -1,8 +0,0 @@
1   - ! NOAA/PMEL TMAP
2   - ! FERRET v6.93
3   - ! Linux 2.6.32-504.el6.x86_64 64-bit - 11/13/14
4   - ! 30-Sep-15 15:02
5   -
6   -use simulation1.nc
7   -use simulation1
8   -quit
output/ferret.jnl.~2~ deleted
... ... @@ -1,10 +0,0 @@
1   - ! NOAA/PMEL TMAP
2   - ! FERRET v6.93
3   - ! Linux 2.6.32-504.el6.x86_64 64-bit - 11/13/14
4   - ! 30-Sep-15 15:05
5   -
6   -use simulation1.nc
7   -show data
8   -show axis/all
9   -show data
10   -plot/I=1/J=1 SPECTRUM
output/floe_size.dat deleted
... ... @@ -1,10 +0,0 @@
1   - 0.0000000000000000 0.0000000000000000
2   - 500.00000000000000 500.00000000000000
3   - 500.00000000000000 500.00000000000000
4   - 500.00000000000000 500.00000000000000
5   - 500.00000000000000 500.00000000000000
6   - 500.00000000000000 500.00000000000000
7   - 500.00000000000000 500.00000000000000
8   - 500.00000000000000 500.00000000000000
9   - 500.00000000000000 500.00000000000000
10   - 500.00000000000000 500.00000000000000
output/jonswap.m deleted
... ... @@ -1,18 +0,0 @@
1   -function [E] = JONSWAP(Tm,Hs,om)
2   -% Formule http://hmf.enseeiht.fr/travaux/CD0910/bei/beiere/groupe4/node/59
3   -
4   -gam = 3.3;
5   -alp = 0.0624/(0.23+0.0336*gam-0.185/(1.9+gam));
6   -fp = 1/Tm;
7   -f = om/(2*pi);
8   -sig = zeros(length(om),1);
9   -sig(f<=fp) = 0.07;
10   -sig(f>fp) = 0.09;
11   -
12   -E = alp*Hs^2*fp^4*f.^-5.*exp(-5/4*(fp./f).^4).*gam.^(exp(-(f-fp).^2./(2.*sig.^2.*fp^2)));
13   -
14   -
15   -
16   -
17   -end
18   -
output/simulation1 .nc deleted
No preview for this file type
output/simulation1.nc deleted
No preview for this file type
output/test_adv deleted
... ... @@ -1,29 +0,0 @@
1   -clear all;
2   -close all;
3   -
4   -% Parameters
5   -g = 9.81; % gravitational acceleration
6   -dx = 5000; % spatial resolution
7   -
8   -Hs=1;
9   -Tm=6;
10   -
11   -% Waves
12   -fmin = 1/20; % minimum wave frequency
13   -fmax = 1/2.5; % maximum wave frequency
14   -om1 = 2*pi*fmin; % minimum wave radial frequency
15   -om2 = 2*pi*fmax; % maximum wave radial fequency
16   -nw = 61; % number of frequency bins
17   -dw = (om2-om1)/(nw-1); % integral interval for wave radial frequencies
18   -om = om1+(0:nw-1)'*dw; % wave radial frequencies vector
19   -T = 2*pi./om; % wave periods vector
20   -
21   -wlng = g.*T.^2./(2.*pi); % wavelength as a function only of wave period
22   -cp = sqrt(g.*wlng./(2.*pi)); % phase speed
23   -cg = cp./2; % group speed
24   -cgmax = max(cg); % group speed maximum
25   -cg(:) = cgmax; % no dispersion = all group speed are the same (maximum)
26   -
27   -dt = dx/cgmax; % time interval (temporal resolution)
28   -
29   -Ei = jonswap(Tm,Hs,om); % JONSWAP spectrum
30 0 \ No newline at end of file
output/test_adv.m deleted
... ... @@ -1,84 +0,0 @@
1   -clear all;
2   -close all;
3   -
4   -% Parameters
5   -g = 9.81; % gravitational acceleration
6   -dx = 500; % spatial resolution
7   -nbin=80;
8   -x=linspace(0,dx*nbin/1000,nbin);
9   -
10   -Hs=1;
11   -Tm=6;
12   -
13   -% Waves
14   -fmin = 1/20; % minimum wave frequency
15   -fmax = 1/2.5; % maximum wave frequency
16   -om1 = 2*pi*fmin; % minimum wave radial frequency
17   -om2 = 2*pi*fmax; % maximum wave radial fequency
18   -nw = 61; % number of frequency bins
19   -dw = (om2-om1)/(nw-1); % integral interval for wave radial frequencies
20   -om = om1+(0:nw-1)'*dw; % wave radial frequencies vector
21   -T = 2*pi./om; % wave periods vector
22   -
23   -wlng = g.*T.^2./(2.*pi); % wavelength as a function only of wave period
24   -cp = sqrt(g.*wlng./(2.*pi)); % phase speed
25   -cg = cp./2; % group speed
26   -cgmax = max(cg); % group speed maximum
27   -cg(:) = cgmax; % no dispersion = all group speed are the same (maximum)
28   -
29   -CN=0.7;
30   -dt = CN*dx/cgmax; % time interval (temporal resolution)
31   -nsteps=ceil(nbin/CN);
32   -
33   -Ei = jonswap(Tm,Hs,om); % JONSWAP spectrum
34   -E=zeros(nsteps,nbin,length(om));
35   -E(1,1,:)=Ei;
36   -EE=reshape(E(1,:,:),nbin,length(om));
37   -
38   -
39   -
40   -for n=2:nsteps
41   -
42   - for w=1:nw % Advection loop over each frequency
43   -
44   - EE(:,w) = advection(EE(:,w),cg(w,:),dx,dt); % SEE advection routine
45   - end
46   -
47   - E(n,:,:)=reshape(EE,1,nbin,length(om));
48   -
49   -
50   -
51   -end
52   -
53   -
54   -
55   -figure(1)
56   - rr = waitforbuttonpress;
57   -for n=1:nsteps
58   - figure(1)
59   -
60   -
61   - E3=reshape(E(n,:,:),nbin,length(om));
62   - h=mesh(om,x,E3);
63   - axis([om1 om2 min(x) max(x) 0 max(Ei)])
64   - xlabel('Frequency [s^{-1}]')
65   - zlabel('Energy')
66   -
67   - ylabel('x [km]')
68   - pause(0.1)
69   -
70   -
71   -end
72   -
73   -
74   -for i=1:nsteps
75   -
76   -E2=reshape(E(i,:,:),nbin,length(om));
77   -m0(i)=sum(sum(E2))/sum(Ei);
78   -end
79   -figure
80   -plot(m0)
81   -
82   -
83   -
84   -
output/test_adv.m~ deleted
... ... @@ -1,77 +0,0 @@
1   -clear all;
2   -close all;
3   -
4   -% Parameters
5   -g = 9.81; % gravitational acceleration
6   -dx = 500; % spatial resolution
7   -nbin=80;
8   -x=linspace(0,dx*nbin/1000,nbin);
9   -
10   -Hs=1;
11   -Tm=6;
12   -
13   -% Waves
14   -fmin = 1/20; % minimum wave frequency
15   -fmax = 1/2.5; % maximum wave frequency
16   -om1 = 2*pi*fmin; % minimum wave radial frequency
17   -om2 = 2*pi*fmax; % maximum wave radial fequency
18   -nw = 61; % number of frequency bins
19   -dw = (om2-om1)/(nw-1); % integral interval for wave radial frequencies
20   -om = om1+(0:nw-1)'*dw; % wave radial frequencies vector
21   -T = 2*pi./om; % wave periods vector
22   -
23   -wlng = g.*T.^2./(2.*pi); % wavelength as a function only of wave period
24   -cp = sqrt(g.*wlng./(2.*pi)); % phase speed
25   -cg = cp./2; % group speed
26   -cgmax = max(cg); % group speed maximum
27   -cg(:) = cgmax; % no dispersion = all group speed are the same (maximum)
28   -
29   -CN=0.5;
30   -dt = CN*dx/cgmax; % time interval (temporal resolution)
31   -nsteps=ceil(nbin/CN);
32   -
33   -Ei = jonswap(Tm,Hs,om); % JONSWAP spectrum
34   -E=zeros(nsteps,nbin,length(om));
35   -E(1,1,:)=Ei;
36   -EE=reshape(E(1,:,:),nbin,length(om));
37   -
38   -
39   -
40   -figure(1)
41   - rr = waitforbuttonpress;
42   -for n=2:nsteps
43   -
44   - for w=1:nw % Advection loop over each frequency
45   -
46   - EE(:,w) = advection(EE(:,w),cg(w,:),dx,dt); % SEE advection routine
47   - end
48   -
49   - % Incident wave spectrum
50   - %EE(1,:) = Ei;
51   -
52   - figure(1)
53   -
54   -
55   - h=mesh(om,x,EE);
56   - axis([om1 om2 min(x) max(x) 0 max(Ei)])
57   - xlabel('Frequency [s^{-1}]')
58   - zlabel('Energy')
59   -
60   - ylabel('x [km]')
61   - pause(0.1)
62   -
63   - E(n,:,:)=reshape(EE,1,nbin,length(om));
64   -end
65   -
66   -
67   -for i=1:nsteps
68   -
69   -E2=reshape(E(i,:,:),nbin,length(om));
70   -m0(i)=sum(sum(E2))/sum(Ei);
71   -end
72   -figure
73   -plot(m0)
74   -
75   -
76   -
77   -
output/wim.m deleted
... ... @@ -1,134 +0,0 @@
1   -function [T,cice,Hsig,Ei,E,S_win,S_wcp,S_ice,Dmax,Dave,om_do] = wim(C,h,D,U10,Tm,Hs)
2   -% WIM - Models the propagation of a wave spectrum along a 1D
3   -% ice-covered transect.
4   -%
5   -% Syntax: [T,cice,Hsig,Ei,E,S_win,S_wcp,S_ice] = wim_final(C,h,D,U10,Tm,Hs)
6   -%
7   -% Inputs:
8   -% C : ice concentration. For a homogeneous concentration, C is scalar
9   -% in tenths. Otherwise, C is a vector of the size of the spatial
10   -% grid, in fraction of 1 (0 < C < 1). In this version of WIM, if
11   -% C is homogeneous, the transect is 5km long with spatial
12   -% resolution of 500m.
13   -% h : ice thickness in meters. h is a scalar.
14   -% D : average floe diameter in meters. D is a scalar.
15   -% U10 : wind speed at 10m elevation in m/sec. U10 is a scalar.
16   -% Tm : mean wave period to build the spectrum, in seconds. Tm is a scalar.
17   -% Hs : significant wave height, in meters. Hs is a scalar.
18   -%
19   -% Outputs:
20   -% T : wave period in seconds. T is a vector the size of the frequency range.
21   -% cice : ice concentration vector in fraction of 1. cice has the size of
22   -% the spatial grid.If C is a vector, then cice = C.
23   -% Hsig : final wave heigh in each cell in meters. Hsig has the size of
24   -% the spatial grid.
25   -% Ei : initial spectrum in m2/hz.
26   -% E : final wave spectrum in each cell [m2/Hz].
27   -% S_win: final wind source term in each cell in m2/Hz/sec.
28   -% S_wcp: final white-capping source term in each cell in m2/Hz/sec.
29   -% S_ice: final ice source term in each cell in m2/Hz/sec.
30   -
31   -% Parameters
32   -g = 9.81; % gravitational acceleration
33   -dx = 5000; % spatial resolution
34   -
35   -% Ice conditions
36   -if length(C) == 1 % Homogeneous ice concentration case
37   - nx = 10; % 10 cells of 500m -> 5km long transect
38   - cice = zeros(1,nx)+C; % homogeneous ice concentration vector
39   - hice = zeros(1,nx)+h; % homogeneous ice thickness vector
40   - Dmax = zeros(1,nx)+D; % homogeneous floe diameter vector
41   - Dave = zeros(1,nx)+D;
42   -else % Variable ice concentration case
43   - nx = length(C); % number of cells
44   - cice = C; % ice concentration vector
45   - hice = zeros(1,nx); % ice thickness vector size allocation
46   - hice(find(C)) = h; % ice thickness vector
47   - Dmax = zeros(1,nx); % floes diameter vector size allocation
48   - Dmax(find(C)) = D; % floes diameter vector
49   -end
50   -
51   -% Waves
52   -fmin = 1/20; % minimum wave frequency
53   -fmax = 1/2.5; % maximum wave frequency
54   -om1 = 2*pi*fmin; % minimum wave radial frequency
55   -om2 = 2*pi*fmax; % maximum wave radial fequency
56   -nw = 61; % number of frequency bins
57   -dw = (om2-om1)/(nw-1); % integral interval for wave radial frequencies
58   -om = om1+(0:nw-1)'*dw; % wave radial frequencies vector
59   -T = 2*pi./om; % wave periods vector
60   -Ei = jonswap(Tm,Hs,om); % JONSWAP spectrum
61   -wlng = g.*T.^2./(2.*pi); % wavelength as a function only of wave period
62   -cp = sqrt(g.*wlng./(2.*pi)); % phase speed
63   -cg = cp./2; % group speed
64   -cgmax = max(cg); % group speed maximum
65   -cg(:) = cgmax; % no dispersion = all group speed are the same (maximum)
66   -
67   -% Wind
68   -U10 = repmat(U10,nx,1); % wind speed at 10m elevation vector
69   -
70   -% Temporal grid
71   -dt = dx/cgmax; % time interval (temporal resolution)
72   -nsteps = nx+1; % number of time steps (=nx+1 because advection is
73   - % done from one cell at each time step)
74   -time = 0:dt:nsteps*dt; % time vector
75   -nt = length(time); % time vector size
76   -
77   -% Memory preallocation
78   -E = zeros(nx,nw); % wave spectrum
79   -Swin = zeros(nx,nw); % wind source term
80   -Swcp = zeros(nx,nw); % white-capping source term
81   -Sice = zeros(nx,nw); % ice dissipation source term
82   -S_win = zeros(nx,nw); % wind source term weighted by open water fraction (for outputs)
83   -S_ice = zeros(nx,nw); % ice dissipation source terme weighted by ice fraction
84   -S_wcp = zeros(nx,nw); % white-capping source term weighted by open water fraction
85   -Hsig = zeros(1,nx); % significant wave height
86   -
87   -% Action density limiter
88   -Slim = action_density_limiter(om,cp); % SEE action_density_limiter routine
89   -
90   -
91   -for n=1:nt % Time loop
92   - % Advection.
93   - % The advection is done by solving Dt(S) = 0 using the
94   - % Lax-Wendroff scheme with Superbee flux limiting and a Neumann
95   - % boundary condition. The advection is performed over the whole domain
96   - % in one step on an unattenuated intermediate spectrum.
97   - for w=1:nw % Advection loop over each frequency
98   - E(:,w) = advection(E(:,w),cg(w,:),dx,dt); % SEE advection routine
99   - end
100   - % Incident wave spectrum
101   - E(1,:) = Ei; % The initial wave spectrum is forced in the first cell
102   - % Processes for each spatial cell with ice (generation by wind, dissipation
103   - % by white-capping and attenuation by ice)
104   - for i=2:nx % Spatial loop
105   -% % Generation by wind
106   -% Swin(i,:) = wind_gen(U10(i),E(i,:),om,cp); % SEE wind_gen routine
107   -% Swin(i,:) = min(Swin(i,:),Slim'); % action density limiter
108   -% E(i,:) = E(i,:) + Swin(i,:)*dt*(1-cice(i)); % the wave spectrum is updated (explicit scheme)
109   -% S_win(i,:) = Swin(i,:)*(1-cice(i)); % effective wind source term for outputs
110   -% % Dissipation by white-capping
111   -% Swcp(i,:) = white_cap(E(i,:),om,cp); % SEE white-cap routine
112   -% Swcp(i,:) = max(Swcp(i,:),-Slim'); % action density limiter
113   -% E(i,:) = E(i,:) + Swcp(i,:)*dt*(1-cice(i)); % the wave spectrum is updated (semi-implicit scheme)
114   -% S_wcp(i,:) = Swcp(i,:)*(1-cice(i)); % effective white-capping source term for outputs
115   -
116   - % Attenuation by ice
117   - if cice(i)>0
118   - Sice(i,:) = ice_att(E(i,:),T,cg,cice(i),hice(i),Dave(i),dt*cice(i)); % SEE ice_att routine
119   - E(i,:) = E(i,:) + Sice(i,:)*dt; % the wave spectrum is updated (implicit scheme)
120   - else
121   - Sice(i,:) = 0; % if there is no ice, there is no attenuation Sherlock !
122   - end
123   - S_ice(i,:) = Sice(i,:)*cice(i); % effective ice dissipation source term for outputs
124   - [Dmax(i),om_do(i)]=floe_breaking(E(i,:),h,om,Dmax(i),dw);
125   - Dave(i)=FSD(Dmax(i),D);
126   - % Wave spectrum statistics
127   - E(E<0) = 0; % avoiding negative energy
128   - m0 = trapz(om,E(i,:)); % total energy
129   - Hsig(i) = 4*sqrt(m0); % significant wave height
130   - end
131   -end
132   -
133   -end
134   -
src/advection.o deleted
No preview for this file type
src/attenuation.o deleted
No preview for this file type
src/floe_breaking.o deleted
No preview for this file type
src/fsd_build.o deleted
No preview for this file type
src/initialization.o deleted
No preview for this file type
src/main.o deleted
No preview for this file type
src/makefile~ deleted
... ... @@ -1,37 +0,0 @@
1   -COMPILER= ifort
2   -
3   -OPTION= -O3
4   -
5   -
6   -NETCDFinc= -I/usr/local/include
7   -NETCDFLIB= -L/usr/local/lib -lnetcdf
8   -
9   -OBJ= *.o
10   -
11   -SRC= *.f90
12   -
13   -MOD= parameters.mod
14   -
15   -EXEC= WIM2
16   -
17   -
18   -
19   -WIM2: $(OBJ)
20   - $(COMPILER) $(OPTION) $(NETCDFinc) -o $(EXEC) $(OBJ) $(NETCDFLIB)
21   - mv WIM2 ../
22   -
23   -
24   -$(MOD): parameters.f90
25   - $(COMPILER) -c parameters.f90
26   -
27   -
28   -$(OBJ): $(SRC) $(MOD)
29   - $(COMPILER) $(NETCDFinc) -c $(SRC) $(NETCDFLIB)
30   -
31   -
32   -clean:
33   - rm -f *.o *.mod
34   -
35   -mrproper:
36   -
37   - rm -f *.o *.mod ../WIM2
src/parameters.mod deleted
... ... @@ -1,191 +0,0 @@
1   -GFORTRAN module version '0' created from parameters.f90 on Mon Oct 5 10:51:18 2015
2   -MD5:2945bfc901545c55dde121545c48b899 -- If you edit this, you'll get what you deserve.
3   -
4   -(() () () () () () () () () () () () () () () () () () () () () () () ()
5   -() () ())
6   -
7   -()
8   -
9   -()
10   -
11   -()
12   -
13   -()
14   -
15   -(2 '__convert_i4_r8' '(intrinsic)' '__convert_i4_r8' 1 ((PROCEDURE
16   -UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION ELEMENTAL PURE) (
17   -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
18   -3 '__convert_r4_r8' '(intrinsic)' '__convert_r4_r8' 1 ((PROCEDURE
19   -UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION ELEMENTAL PURE) (
20   -REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
21   -4 'alpha' 'parameters' 'alpha' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
22   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2
23   -DEFERRED () () () ()) 0 () () () 0 0)
24   -5 'alpha_s' 'parameters' 'alpha_s' 1 ((VARIABLE UNKNOWN-INTENT
25   -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0
26   -() () 0 () () () 0 0)
27   -6 'array_allocation' 'parameters' 'array_allocation' 1 ((PROCEDURE
28   -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
29   -UNKNOWN ()) 0 0 () () 0 () () () 0 0)
30   -7 'beta_s' 'parameters' 'beta_s' 1 ((VARIABLE UNKNOWN-INTENT
31   -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0
32   -() () 0 () () () 0 0)
33   -8 'c_ice' 'parameters' 'c_ice' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
34   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
35   -DEFERRED () ()) 0 () () () 0 0)
36   -9 'cfl' 'parameters' 'cfl' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
37   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
38   -() 0 0)
39   -10 'cg' 'parameters' 'cg' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
40   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
41   -DEFERRED () ()) 0 () () () 0 0)
42   -11 'cice' 'parameters' 'cice' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
43   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
44   -() 0 0)
45   -12 'cn' 'parameters' 'cn' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
46   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
47   -DEFERRED () ()) 0 () () () 0 0)
48   -13 'cp' 'parameters' 'cp' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
49   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
50   -DEFERRED () ()) 0 () () () 0 0)
51   -14 'd0' 'parameters' 'd0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
52   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
53   -() 0 0)
54   -15 'dave' 'parameters' 'dave' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
55   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
56   -DEFERRED () ()) 0 () () () 0 0)
57   -16 'disp' 'parameters' 'disp' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
58   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
59   -0 () () () 0 0)
60   -17 'dmax' 'parameters' 'dmax' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
61   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
62   -DEFERRED () ()) 0 () () () 0 0)
63   -18 'dmin' 'parameters' 'dmin' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
64   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
65   -() 0 0)
66   -19 'domega' 'parameters' 'domega' 1 ((VARIABLE UNKNOWN-INTENT
67   -UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
68   -0 0)
69   -20 'dt' 'parameters' 'dt' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
70   -UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
71   -21 'dx' 'parameters' 'dx' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
72   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
73   -() 0 0)
74   -22 'e' 'parameters' 'e' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
75   -UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (3 DEFERRED ()
76   -() () () () ()) 0 () () () 0 0)
77   -23 'ei' 'parameters' 'ei' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
78   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
79   -DEFERRED () ()) 0 () () () 0 0)
80   -24 'floe_size' 'parameters' 'floe_size' 1 ((VARIABLE UNKNOWN-INTENT
81   -UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
82   -INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () () 0 () () () 0 0)
83   -25 'freq' 'parameters' 'freq' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
84   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
85   -DEFERRED () ()) 0 () () () 0 0)
86   -26 'freq_s' 'parameters' 'freq_s' 1 ((VARIABLE UNKNOWN-INTENT
87   -UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
88   -0 0)
89   -27 'fsd_scheme' 'parameters' 'fsd_scheme' 1 ((VARIABLE UNKNOWN-INTENT
90   -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (INTEGER 4 0 0 INTEGER ())
91   -0 0 () () 0 () () () 0 0)
92   -28 'g' 'parameters' 'g' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
93   -IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
94   -29 'gam' 'parameters' 'gam' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
95   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
96   -() 0 0)
97   -30 'gamma_s' 'parameters' 'gamma_s' 1 ((VARIABLE UNKNOWN-INTENT
98   -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0
99   -() () 0 () () () 0 0)
100   -31 'h' 'parameters' 'h' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
101   -UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED ()
102   -()) 0 () () () 0 0)
103   -32 'hice' 'parameters' 'hice' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
104   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
105   -() 0 0)
106   -33 'hs' 'parameters' 'hs' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
107   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
108   -() 0 0)
109   -34 'i' 'parameters' 'i' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
110   -UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
111   -35 'ii' 'parameters' 'ii' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
112   -UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
113   -36 'j' 'parameters' 'j' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
114   -UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
115   -37 'jj' 'parameters' 'jj' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
116   -UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
117   -38 'n' 'parameters' 'n' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
118   -UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
119   -39 'name_sim' 'parameters' 'name_sim' 1 ((VARIABLE UNKNOWN-INTENT
120   -UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (CHARACTER 1 0 0
121   -CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () () 0 ()
122   -() () 0 0)
123   -40 'namefile' 'parameters' 'namefile' 1 ((VARIABLE UNKNOWN-INTENT
124   -UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
125   -INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () () 0 () () () 0 0)
126   -41 'nbin' 'parameters' 'nbin' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
127   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
128   -0 () () () 0 0)
129   -42 'nfreq' 'parameters' 'nfreq' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
130   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
131   -0 () () () 0 0)
132   -43 'nsteps' 'parameters' 'nsteps' 1 ((VARIABLE UNKNOWN-INTENT
133   -UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
134   -() () 0 0)
135   -44 'omega' 'parameters' 'omega' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
136   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
137   -DEFERRED () ()) 0 () () () 0 0)
138   -45 'parameters' 'parameters' 'parameters' 1 ((MODULE UNKNOWN-INTENT
139   -UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
140   -() () 0 0)
141   -46 'pi' 'parameters' 'pi' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
142   -UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
143   -47 'read_namelist' 'parameters' 'read_namelist' 1 ((PROCEDURE
144   -UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0
145   -UNKNOWN ()) 0 0 () () 0 () () () 0 0)
146   -48 'root' 'parameters' 'root' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
147   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (CHARACTER 1 0 0 CHARACTER ((
148   -CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () () 0 () () () 0 0)
149   -49 's_ice' 'parameters' 's_ice' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
150   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2
151   -DEFERRED () () () ()) 0 () () () 0 0)
152   -50 'sigma_s' 'parameters' 'sigma_s' 1 ((VARIABLE UNKNOWN-INTENT
153   -UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
154   -0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
155   -51 'spectrum' 'parameters' 'spectrum' 1 ((VARIABLE UNKNOWN-INTENT
156   -UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
157   -INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () () 0 () () () 0 0)
158   -52 't' 'parameters' 't' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
159   -UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED ()
160   -()) 0 () () () 0 0)
161   -53 'time' 'parameters' 'time' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
162   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
163   -DEFERRED () ()) 0 () () () 0 0)
164   -54 'tm' 'parameters' 'tm' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
165   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
166   -() 0 0)
167   -55 'tmax' 'parameters' 'tmax' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
168   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
169   -() 0 0)
170   -56 'tmin' 'parameters' 'tmin' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
171   -UNKNOWN IMPLICIT-SAVE IN_NAMELIST) (REAL 8 0 0 REAL ()) 0 0 () () 0 () ()
172   -() 0 0)
173   -57 'wl' 'parameters' 'wl' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
174   -UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
175   -DEFERRED () ()) 0 () () () 0 0)
176   -58 'x_axis' 'parameters' 'x_axis' 1 ((VARIABLE UNKNOWN-INTENT
177   -UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
178   -0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
179   -)
180   -
181   -('__convert_i4_r8' 0 2 '__convert_r4_r8' 0 3 'alpha' 0 4 'alpha_s' 0 5
182   -'array_allocation' 0 6 'beta_s' 0 7 'c_ice' 0 8 'cfl' 0 9 'cg' 0 10 'cice'
183   -0 11 'cn' 0 12 'cp' 0 13 'd0' 0 14 'dave' 0 15 'disp' 0 16 'dmax' 0 17
184   -'dmin' 0 18 'domega' 0 19 'dt' 0 20 'dx' 0 21 'e' 0 22 'ei' 0 23
185   -'floe_size' 0 24 'freq' 0 25 'freq_s' 0 26 'fsd_scheme' 0 27 'g' 0 28
186   -'gam' 0 29 'gamma_s' 0 30 'h' 0 31 'hice' 0 32 'hs' 0 33 'i' 0 34 'ii' 0
187   -35 'j' 0 36 'jj' 0 37 'n' 0 38 'name_sim' 0 39 'namefile' 0 40 'nbin' 0
188   -41 'nfreq' 0 42 'nsteps' 0 43 'omega' 0 44 'parameters' 0 45 'pi' 0 46
189   -'read_namelist' 0 47 'root' 0 48 's_ice' 0 49 'sigma_s' 0 50 'spectrum'
190   -0 51 't' 0 52 'time' 0 53 'tm' 0 54 'tmax' 0 55 'tmin' 0 56 'wl' 0 57
191   -'x_axis' 0 58)
src/parameters.o deleted
No preview for this file type
src/write_output.o deleted
No preview for this file type