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