source: Roms_tools/Diagnostic_tools/v2rho_3d.m @ 1

Last change on this file since 1 was 1, checked in by cholod, 13 years ago

import Roms_Agrif
File size: 424 bytes
Line 
1function [var_rho]=v2rho_2d(var_v)
2%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3% Copyright (c) 2000 IRD
4%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5%
6%
7% transfert a field at u points to a field at rho points
8%
9%
10% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
11
12[N,M,Lp]=size(var_v);
13Mp=M+1;
14Mm=M-1;
15var_rho=zeros(N,Mp,Lp);
16var_rho(:,2:M,:)=0.5*(var_v(:,1:Mm,:)+var_v(:,2:M,:));
17var_rho(:,1,:)=var_rho(:,2,:);
18var_rho(:,Mp,:)=var_rho(:,M,:);
19
20return
21
Note: See TracBrowser for help on using the repository browser.