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	% 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	%addpath /data17/home/xiao/CAT/Tool/TMD2.03
8	%
9	addpath /data1/cube/ecco2_tools/CATS/Tool/TMD2.03
10	%
11	% addpath /data17/home/xiao/Mat_Tools/MITgcm_Tool
12
13	% Time for nodal correction
14	time_nodal = datenum(1979, 1, 1,0, 0,0) ;
15
16	nx=640;
17	ny=640;
18	%cbdry_used={'s','n', 'w'} ;
19	tide_num = [1 2 3 4 5 6 7 8] ;
20
21	cbdry_used={'s'} ;
22	%tide_num = [1] ;
23
24	%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
27	% Create a dummy boundary condition file for east boundary
28	%cbdry_empty={'e'} ;
29	%tide_bc_empty(nx, ny, cbdry_empty,tide_num);