MITgcm_contrib/tides/test_tide_bc.m

% Test the usage of create_tide_bc_4bdry.m 
%
% XC WANG 03Feb2013  


% User need to replace the CAT directory here 
%addpath /data17/home/xiao/CAT/Tool/TMD2.03    
% 
addpath /data1/cube/ecco2_tools/CATS/Tool/TMD2.03 
% 
% addpath /data17/home/xiao/Mat_Tools/MITgcm_Tool

% Time for nodal correction 
time_nodal = datenum(1979, 1, 1,0, 0,0) ;  

nx=640; 
ny=640;  
%cbdry_used={'s','n', 'w'} ; 
tide_num = [1 2 3 4 5 6 7 8] ; 

cbdry_used={'s'} ; 
%tide_num = [1] ; 

%timec = create_tide_bc_4bdry(nx, ny, cbdry_used,tide_num,time_nodal) ;  
 create_tide_bc_second(nx, ny, cbdry_used,tide_num,time_nodal) ;  

% Create a dummy boundary condition file for east boundary 
%cbdry_empty={'e'} ; 
%tide_bc_empty(nx, ny, cbdry_empty,tide_num);  
1	dimitri	1.1	% Test the usage of create_tide_bc_4bdry.m
2			%
3			% XC WANG 03Feb2013
4
5
6			% User need to replace the CAT directory here
7	dimitri	1.3	%addpath /data17/home/xiao/CAT/Tool/TMD2.03
8			%
9			addpath /data1/cube/ecco2_tools/CATS/Tool/TMD2.03
10	dimitri	1.1	%
11	dimitri	1.2	% addpath /data17/home/xiao/Mat_Tools/MITgcm_Tool
12	dimitri	1.1
13	dimitri	1.2	% Time for nodal correction
14	dimitri	1.1	time_nodal = datenum(1979, 1, 1,0, 0,0) ;
15
16			nx=640;
17			ny=640;
18	dimitri	1.2	%cbdry_used={'s','n', 'w'} ;
19	dimitri	1.1	tide_num = [1 2 3 4 5 6 7 8] ;
20
21	dimitri	1.2	cbdry_used={'s'} ;
22			%tide_num = [1] ;
23	dimitri	1.1
24	dimitri	1.2	%timec = create_tide_bc_4bdry(nx, ny, cbdry_used,tide_num,time_nodal) ;
25			create_tide_bc_second(nx, ny, cbdry_used,tide_num,time_nodal) ;
26	dimitri	1.1
27	dimitri	1.2	% Create a dummy boundary condition file for east boundary
28			%cbdry_empty={'e'} ;
29			%tide_bc_empty(nx, ny, cbdry_empty,tide_num);