matlab_class/gcmfaces_diags/diags_grid_parms.m

function []=diags_grid_parms(dirModel,listTimes,doInteractive);
%object :      load grid, set params, and save both to dirMat
%input :       listTimes is the time list obtained from diags_list_times
%(optional)    doInteractive=1 allows users to specify parameters interactively
%                     doInteractive = 0 (default) uses ECCO v4 parameters
%                     and omits budgets and model-data misfits analyses

%global variables
gcmfaces_global;
global myparms;

%load grid
if isempty(dir('GRID'))&isempty(dir('nctiles_grid'))&...
   isempty(dir([dirModel filesep 'GRID']))&...
   isempty(dir([dirModel filesep 'nctiles_grid']));
    dirGrid=input('grid directory?\n');
    fprintf('\nFor the ECCO v4 LLC90 grid, the following parameters\n');
    fprintf('apply: nF=5; frmt=''compact''; memoryLimit=0; \n\n');
    nF=input('Number of faces? (nF=1, 4, 5 or 6)\n');
    frmt=input('File format? (frmt=''straight'', ''cube'' or ''compact'')\n');
    memoryLimit=input('memoryLimit? (0=load full grid, 1=less, 2=even less)\n');
elseif ~isempty(dir('GRID'));
    dirGrid=['GRID' filesep];
    nF=5;
    frmt='compact';
    memoryLimit=0;
elseif ~isempty(dir('nctiles_grid'));
    dirGrid=['nctiles_grid' filesep];
    nF=5;
    frmt='nctiles';
    memoryLimit=0;
elseif ~isempty(dir([dirModel filesep 'GRID']));
    dirGrid=[dirModel filesep 'GRID' filesep];
    nF=5;
    frmt='compact';
    memoryLimit=0;
elseif ~isempty(dir([dirModel filesep 'nctiles_grid']));
    dirGrid=[dirModel filesep 'nctiles_grid' filesep];
    nF=5;
    frmt='nctiles';
    memoryLimit=0;
end;

if doInteractive;
    nF=input('number of faces? (1, 4, 5or 6)\n'); 
    frmt=input('file format ? (''straight'', ''cube'' or ''compact'')\n');
    memoryLimit=input('memoryLimit ? (0=load full grid, 1=load less, 2=load even less)\n');
end;

grid_load(dirGrid,nF,frmt,memoryLimit);

%set default for model run parameters
if doInteractive;
    choiceParams=input(['choice of default parameters? (1=ecco v4, ' ...
                 '2=core, 3=ecco2 adjoint, 4=ecco v3, 5=core-Jeff)\n']);
else;
    choiceParams=1;
end;
myparms=default_parms(choiceParams);

%allow user to change model params if necessary
myparms=review_parms(myparms,listTimes,doInteractive);

function [parms]=default_parms(choiceParams);
%set model parameters to default (ecco_v4)

if choiceParams==1|choiceParams==2|choiceParams==4|choiceParams==5;
parms.yearFirst=1992; %first year covered by model integration
parms.yearLast =2011; %last year covered by model integration
parms.yearInAve=[parms.yearFirst parms.yearLast]; %period for time averages and variance computations
parms.timeStep =3600; %model time step for tracers
parms.iceModel =1;%0=use freezing point   1=use pkg/seaice   2=use pkg/thsice
parms.useRFWF  =1;%1=real fresh water flux 0=virtual salt flux
parms.useNLFS  =2;%2=rstar 1=nlfs 0=linear free surface
parms.rhoconst =1029; %sea water density
parms.rcp      =3994*parms.rhoconst; % sea water rho X heat capacity
parms.rhoi     = 910; %sea ice density
parms.rhosn    = 330; %snow density
parms.flami    = 3.34e05; % latent heat of fusion of ice/snow (J/kg)
parms.flamb    = 2.50e06; % latent heat of evaporation (J/kg)
parms.SIsal0   =4;
if choiceParams==2;
  parms.yearFirst=1948; %first year covered by model integration
  parms.yearLast =2007; %last year covered by model integration
  parms.yearInAve = [1948 2007];
end;
if choiceParams==4;
  parms.useRFWF  =0;%1=real fresh water flux 0=virtual salt flux
  parms.useNLFS  =0;%2=rstar 1=nlfs 0=linear free surface
end;
if choiceParams==5;
 parms.yearFirst=2006; %first year covered by model integration
 parms.yearLast =2305; %last year covered by model integration
 parms.yearInAve = [2006 2305];
end;
end;

if choiceParams==3;
        parms.yearFirst=2004; %first year covered by model integration
        parms.yearLast =2005; %last year covered by model integration
        parms.yearInAve=[parms.yearFirst parms.yearLast]; %period for time averages and variance computations
        parms.timeStep =1200; %model time step for tracers
        parms.iceModel =1;%0=use freezing point   1=use pkg/seaice   2=use pkg/thsice
        parms.useRFWF  =0;%1=real fresh water flux 0=virtual salt flux
        parms.useNLFS  =0;%2=rstar 1=nlfs 0=linear free surface
        parms.rhoconst =1027.5; %sea water density
        parms.rcp      =3994*parms.rhoconst; % sea water rho X heat capacity
        parms.rhoi     = 910; %sea ice density
        parms.rhosn    = 330; %snow density
        parms.flami    = 3.34e05; % latent heat of fusion of ice/snow (J/kg)
        parms.flamb    = 2.50e06; % latent heat of evaporation (J/kg)
        parms.SIsal0   = 0;
end;

function [parms]=review_parms(parms,listTimes,doInteractive);
%review model parameters, correct them if needed, and check a couple more things

test1=1;%so that we print params at least once
while test1;
    fprintf('\n\n');
    gcmfaces_msg('model parameters summary','==== ');
    
    tmp1=sprintf('parms.yearFirst  = %i (first year covered by model integration)',parms.yearFirst); gcmfaces_msg(tmp1,'== ');
    tmp1=sprintf('parms.yearLast   = %i (first year covered by model integration)',parms.yearLast);  gcmfaces_msg(tmp1,'== ');
    tmp1=sprintf('parms.yearInAve  = [%i %i] (time mean and variance years)',parms.yearInAve);  gcmfaces_msg(tmp1,'== ');
    tmp1=sprintf('parms.timeStep   = %i (model time step for tracers)',parms.timeStep);  gcmfaces_msg(tmp1,'== ');
    tmp1=sprintf('parms.iceModel   = %i (0=freezing point  1=pkg/seaice  2=pkg/thsice)',parms.iceModel);  gcmfaces_msg(tmp1,'== ');
    tmp1=sprintf('parms.useRFWF    = %i (1=real fresh water flux 0=virtual salt flux)',parms.useRFWF);  gcmfaces_msg(tmp1,'== ');
    tmp1=sprintf('parms.useNLFS    = %i; (2=rstar 1=nlfs 0=linear free surface)',parms.useNLFS);  gcmfaces_msg(tmp1,'== ');
    tmp1=sprintf('parms.rhoconst   = %0.6g (sea water density)',parms.rhoconst);  gcmfaces_msg(tmp1,'== ');
    tmp1=sprintf('parms.rcp        = %0.6g (sea water density X heat capacity)',parms.rcp);  gcmfaces_msg(tmp1,'== ');
    if parms.iceModel==1;
        tmp1=sprintf('parms.rhoi       = %0.6g (sea ice density)',parms.rhoi);  gcmfaces_msg(tmp1,'== ');
        tmp1=sprintf('parms.rhosn      = %0.6g (snow density)',parms.rhosn);  gcmfaces_msg(tmp1,'== ');
        tmp1=sprintf('parms.flami      = %0.6g (latent heat of fusion of ice/snow in J/kg)',parms.flami);  gcmfaces_msg(tmp1,'== ');
        tmp1=sprintf('parms.flamb      = %0.6g (latent heat of evaporation in J/kg)',parms.flamb);  gcmfaces_msg(tmp1,'== ');
        tmp1=sprintf('parms.SIsal0     = %0.6g (sea ice constant salinity)',parms.SIsal0);  gcmfaces_msg(tmp1,'== ');
        %tmp1=sprintf('',);  gcmfaces_msg(tmp1,'== ');
    else;
        error('only parms.iceModel=1 is currently treated\n');
    end;
    
    if doInteractive;
      gcmfaces_msg('to change a param type e.g. ''parms.yearFirst=1;'' or hit return if all params are ok. Change a param?','==== ');
      tmp1=input('');
      test1=~isempty(tmp1); %so that we change param and iterate process
      if test1; eval(tmp1); end;
    else;
      test1=[];
    end;    
end;

%determine a few more things about the diagnostic time axis
fprintf('\n\n');
parms.diagsNbRec=length(listTimes);
test1=median(diff(listTimes)*parms.timeStep/86400);
if abs(test1-30.5)<1; parms.diagsAreMonthly=1; else; parms.diagsAreMonthly=0; end;
if abs(test1-365.25)<1; parms.diagsAreAnnual=1; else; parms.diagsAreAnnual=0; end;
if doInteractive;
   tmp1=sprintf('parms.diagsNbRec       = %i (number of records, based on model output files)',parms.diagsNbRec); gcmfaces_msg(tmp1,'== ');
   tmp1=sprintf('parms.diagsAreMonthly  = %i (0/1 = false/true; based on output frequency)',parms.diagsAreMonthly); gcmfaces_msg(tmp1,'== ');
   tmp1=sprintf('parms.diagsAreAnnual   = %i (0/1 = false/true; based on output frequency)',parms.diagsAreAnnual); gcmfaces_msg(tmp1,'== ');
   gcmfaces_msg('hit return if this seems correct otherwise stop here','== '); test0=input(''); if ~isempty(test0); error('likely dir problem'); end;
end;

listTimes2=parms.yearFirst+listTimes*parms.timeStep/86400/365.25;%this approximation of course makes things simpler
tmp1=-0.5*diff(listTimes,1,1)*parms.timeStep/86400/365.25; tmp1=[median(tmp1);tmp1];
listTimes2=listTimes2+tmp1;%this converts the enddate to the middate of pkg/diags
ii=find(listTimes2>=parms.yearInAve(1)&listTimes2<=parms.yearInAve(2)+1);
if parms.diagsAreMonthly;%then restrict to full years
    ni=floor(length(ii)/12)*12; 
    if ni>0; 
      parms.recInAve=[ii(1) ii(floor(ni))];
    else;
      parms.recInAve=[ii(1) ii(end)];
    end;
elseif ~isempty(ii);
    parms.recInAve=[ii(1) ii(end)];
else;
    parms.recInAve=[1 1];
end;
if doInteractive; 
  tmp1=sprintf('parms.recInAve  = [%i %i] (time mean and variance records)',parms.recInAve);  gcmfaces_msg(tmp1,'== ');
end;

fprintf('\n\n');

1	gforget	1.12	function []=diags_grid_parms(dirModel,listTimes,doInteractive);
2	gforget	1.8	%object : load grid, set params, and save both to dirMat
3			%input : listTimes is the time list obtained from diags_list_times
4			%(optional) doInteractive=1 allows users to specify parameters interactively
5			% doInteractive = 0 (default) uses ECCO v4 parameters
6			% and omits budgets and model-data misfits analyses
7	gforget	1.1
8			%global variables
9			gcmfaces_global;
10			global myparms;
11
12			%load grid
13	gforget	1.12	if isempty(dir('GRID'))&isempty(dir('nctiles_grid'))&...
14			isempty(dir([dirModel filesep 'GRID']))&...
15			isempty(dir([dirModel filesep 'nctiles_grid']));
16	gforget	1.1	dirGrid=input('grid directory?\n');
17	gforget	1.13	fprintf('\nFor the ECCO v4 LLC90 grid, the following parameters\n');
18			fprintf('apply: nF=5; frmt=''compact''; memoryLimit=0; \n\n');
19			nF=input('Number of faces? (nF=1, 4, 5 or 6)\n');
20			frmt=input('File format? (frmt=''straight'', ''cube'' or ''compact'')\n');
21			memoryLimit=input('memoryLimit? (0=load full grid, 1=less, 2=even less)\n');
22	gforget	1.10	elseif ~isempty(dir('GRID'));
23	gforget	1.11	dirGrid=['GRID' filesep];
24	gforget	1.10	nF=5;
25			frmt='compact';
26			memoryLimit=0;
27			elseif ~isempty(dir('nctiles_grid'));
28	gforget	1.11	dirGrid=['nctiles_grid' filesep];
29	gforget	1.10	nF=5;
30			frmt='nctiles';
31			memoryLimit=0;
32	gforget	1.12	elseif ~isempty(dir([dirModel filesep 'GRID']));
33			dirGrid=[dirModel filesep 'GRID' filesep];
34			nF=5;
35			frmt='compact';
36			memoryLimit=0;
37			elseif ~isempty(dir([dirModel filesep 'nctiles_grid']));
38			dirGrid=[dirModel filesep 'nctiles_grid' filesep];
39			nF=5;
40			frmt='nctiles';
41			memoryLimit=0;
42	gforget	1.1	end;
43	gforget	1.2
44	gforget	1.8	if doInteractive;
45			nF=input('number of faces? (1, 4, 5or 6)\n');
46			frmt=input('file format ? (''straight'', ''cube'' or ''compact'')\n');
47			memoryLimit=input('memoryLimit ? (0=load full grid, 1=load less, 2=load even less)\n');
48			end;
49	gforget	1.2
50			grid_load(dirGrid,nF,frmt,memoryLimit);
51	gforget	1.1
52			%set default for model run parameters
53	gforget	1.8	if doInteractive;
54			choiceParams=input(['choice of default parameters? (1=ecco v4, ' ...
55			'2=core, 3=ecco2 adjoint, 4=ecco v3, 5=core-Jeff)\n']);
56			else;
57			choiceParams=1;
58			end;
59	gforget	1.2	myparms=default_parms(choiceParams);
60	gforget	1.1
61			%allow user to change model params if necessary
62	gforget	1.8	myparms=review_parms(myparms,listTimes,doInteractive);
63	gforget	1.1
64	gforget	1.2	function [parms]=default_parms(choiceParams);
65	gforget	1.1	%set model parameters to default (ecco_v4)
66
67	gforget	1.6	if choiceParams==1\|choiceParams==2\|choiceParams==4\|choiceParams==5;
68	gforget	1.3	parms.yearFirst=1992; %first year covered by model integration
69	gforget	1.5	parms.yearLast =2011; %last year covered by model integration
70	gforget	1.1	parms.yearInAve=[parms.yearFirst parms.yearLast]; %period for time averages and variance computations
71	gforget	1.3	parms.timeStep =3600; %model time step for tracers
72	gforget	1.1	parms.iceModel =1;%0=use freezing point 1=use pkg/seaice 2=use pkg/thsice
73	gforget	1.3	parms.useRFWF =1;%1=real fresh water flux 0=virtual salt flux
74			parms.useNLFS =2;%2=rstar 1=nlfs 0=linear free surface
75			parms.rhoconst =1029; %sea water density
76	gforget	1.1	parms.rcp =3994*parms.rhoconst; % sea water rho X heat capacity
77			parms.rhoi = 910; %sea ice density
78			parms.rhosn = 330; %snow density
79			parms.flami = 3.34e05; % latent heat of fusion of ice/snow (J/kg)
80			parms.flamb = 2.50e06; % latent heat of evaporation (J/kg)
81	gforget	1.3	parms.SIsal0 =4;
82	gforget	1.2	if choiceParams==2;
83			parms.yearFirst=1948; %first year covered by model integration
84			parms.yearLast =2007; %last year covered by model integration
85	gforget	1.7	parms.yearInAve = [1948 2007];
86	gforget	1.2	end;
87	gforget	1.4	if choiceParams==4;
88			parms.useRFWF =0;%1=real fresh water flux 0=virtual salt flux
89			parms.useNLFS =0;%2=rstar 1=nlfs 0=linear free surface
90			end;
91	gforget	1.6	if choiceParams==5;
92			parms.yearFirst=2006; %first year covered by model integration
93			parms.yearLast =2305; %last year covered by model integration
94			parms.yearInAve = [2006 2305];
95			end;
96	gforget	1.2	end;
97
98			if choiceParams==3;
99			parms.yearFirst=2004; %first year covered by model integration
100			parms.yearLast =2005; %last year covered by model integration
101			parms.yearInAve=[parms.yearFirst parms.yearLast]; %period for time averages and variance computations
102			parms.timeStep =1200; %model time step for tracers
103			parms.iceModel =1;%0=use freezing point 1=use pkg/seaice 2=use pkg/thsice
104			parms.useRFWF =0;%1=real fresh water flux 0=virtual salt flux
105			parms.useNLFS =0;%2=rstar 1=nlfs 0=linear free surface
106			parms.rhoconst =1027.5; %sea water density
107			parms.rcp =3994*parms.rhoconst; % sea water rho X heat capacity
108			parms.rhoi = 910; %sea ice density
109			parms.rhosn = 330; %snow density
110			parms.flami = 3.34e05; % latent heat of fusion of ice/snow (J/kg)
111			parms.flamb = 2.50e06; % latent heat of evaporation (J/kg)
112			parms.SIsal0 = 0;
113			end;
114	gforget	1.1
115	gforget	1.8	function [parms]=review_parms(parms,listTimes,doInteractive);
116	gforget	1.1	%review model parameters, correct them if needed, and check a couple more things
117
118			test1=1;%so that we print params at least once
119			while test1;
120			fprintf('\n\n');
121			gcmfaces_msg('model parameters summary','==== ');
122
123			tmp1=sprintf('parms.yearFirst = %i (first year covered by model integration)',parms.yearFirst); gcmfaces_msg(tmp1,'== ');
124			tmp1=sprintf('parms.yearLast = %i (first year covered by model integration)',parms.yearLast); gcmfaces_msg(tmp1,'== ');
125			tmp1=sprintf('parms.yearInAve = [%i %i] (time mean and variance years)',parms.yearInAve); gcmfaces_msg(tmp1,'== ');
126			tmp1=sprintf('parms.timeStep = %i (model time step for tracers)',parms.timeStep); gcmfaces_msg(tmp1,'== ');
127			tmp1=sprintf('parms.iceModel = %i (0=freezing point 1=pkg/seaice 2=pkg/thsice)',parms.iceModel); gcmfaces_msg(tmp1,'== ');
128			tmp1=sprintf('parms.useRFWF = %i (1=real fresh water flux 0=virtual salt flux)',parms.useRFWF); gcmfaces_msg(tmp1,'== ');
129			tmp1=sprintf('parms.useNLFS = %i; (2=rstar 1=nlfs 0=linear free surface)',parms.useNLFS); gcmfaces_msg(tmp1,'== ');
130			tmp1=sprintf('parms.rhoconst = %0.6g (sea water density)',parms.rhoconst); gcmfaces_msg(tmp1,'== ');
131			tmp1=sprintf('parms.rcp = %0.6g (sea water density X heat capacity)',parms.rcp); gcmfaces_msg(tmp1,'== ');
132			if parms.iceModel==1;
133			tmp1=sprintf('parms.rhoi = %0.6g (sea ice density)',parms.rhoi); gcmfaces_msg(tmp1,'== ');
134			tmp1=sprintf('parms.rhosn = %0.6g (snow density)',parms.rhosn); gcmfaces_msg(tmp1,'== ');
135			tmp1=sprintf('parms.flami = %0.6g (latent heat of fusion of ice/snow in J/kg)',parms.flami); gcmfaces_msg(tmp1,'== ');
136			tmp1=sprintf('parms.flamb = %0.6g (latent heat of evaporation in J/kg)',parms.flamb); gcmfaces_msg(tmp1,'== ');
137			tmp1=sprintf('parms.SIsal0 = %0.6g (sea ice constant salinity)',parms.SIsal0); gcmfaces_msg(tmp1,'== ');
138			%tmp1=sprintf('',); gcmfaces_msg(tmp1,'== ');
139			else;
140			error('only parms.iceModel=1 is currently treated\n');
141			end;
142
143	gforget	1.8	if doInteractive;
144			gcmfaces_msg('to change a param type e.g. ''parms.yearFirst=1;'' or hit return if all params are ok. Change a param?','==== ');
145			tmp1=input('');
146			test1=~isempty(tmp1); %so that we change param and iterate process
147			if test1; eval(tmp1); end;
148			else;
149			test1=[];
150			end;
151	gforget	1.1	end;
152
153			%determine a few more things about the diagnostic time axis
154			fprintf('\n\n');
155			parms.diagsNbRec=length(listTimes);
156			test1=median(diff(listTimes)*parms.timeStep/86400);
157			if abs(test1-30.5)<1; parms.diagsAreMonthly=1; else; parms.diagsAreMonthly=0; end;
158			if abs(test1-365.25)<1; parms.diagsAreAnnual=1; else; parms.diagsAreAnnual=0; end;
159	gforget	1.8	if doInteractive;
160	gforget	1.9	tmp1=sprintf('parms.diagsNbRec = %i (number of records, based on model output files)',parms.diagsNbRec); gcmfaces_msg(tmp1,'== ');
161			tmp1=sprintf('parms.diagsAreMonthly = %i (0/1 = false/true; based on output frequency)',parms.diagsAreMonthly); gcmfaces_msg(tmp1,'== ');
162			tmp1=sprintf('parms.diagsAreAnnual = %i (0/1 = false/true; based on output frequency)',parms.diagsAreAnnual); gcmfaces_msg(tmp1,'== ');
163	gforget	1.8	gcmfaces_msg('hit return if this seems correct otherwise stop here','== '); test0=input(''); if ~isempty(test0); error('likely dir problem'); end;
164			end;
165	gforget	1.1
166			listTimes2=parms.yearFirst+listTimes*parms.timeStep/86400/365.25;%this approximation of course makes things simpler
167			tmp1=-0.5diff(listTimes,1,1)parms.timeStep/86400/365.25; tmp1=[median(tmp1);tmp1];
168			listTimes2=listTimes2+tmp1;%this converts the enddate to the middate of pkg/diags
169			ii=find(listTimes2>=parms.yearInAve(1)&listTimes2<=parms.yearInAve(2)+1);
170			if parms.diagsAreMonthly;%then restrict to full years
171	gforget	1.6	ni=floor(length(ii)/12)*12;
172			if ni>0;
173			parms.recInAve=[ii(1) ii(floor(ni))];
174			else;
175			parms.recInAve=[ii(1) ii(end)];
176			end;
177	gforget	1.1	elseif ~isempty(ii);
178			parms.recInAve=[ii(1) ii(end)];
179			else;
180			parms.recInAve=[1 1];
181			end;
182	gforget	1.9	if doInteractive;
183			tmp1=sprintf('parms.recInAve = [%i %i] (time mean and variance records)',parms.recInAve); gcmfaces_msg(tmp1,'== ');
184			end;
185	gforget	1.1
186			fprintf('\n\n');
187