% Testing the script to generate bc grid files 
%
% XC WANG 

nx=640; 
ny=640; 
nz = 70 ; 

dir_in = '/data17/XCW_output/Grid/data/' ; 

%create_bc_grid_north(dir_in, ny, ny,nz,ny_north);  

cbdry='n' ; 
create_bc_grid(dir_in, ny, ny,nz,cbdry);  


cbdry='s' ; 
create_bc_grid(dir_in, ny, ny,nz,cbdry); 

cbdry='w' ; 
create_bc_grid(dir_in, ny, ny,nz,cbdry); 

cbdry='e' ; 
create_bc_grid(dir_in, ny, ny,nz,cbdry); 
break