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