From 90a6ebc1eed360a8bfc2a6c113d5cf7b875d0c75 Mon Sep 17 00:00:00 2001
From: Gildas Cambon <gildas.cambon@ird.fr>
Date: Mon, 18 Mar 2024 14:20:30 +0100
Subject: [PATCH] Remove ECCO product from Forecast_tools
---
Forecast_tools/download_ECCO_frcst.m | 4 +-
Forecast_tools/extract_ECCO_frcst.m | 115 ---------------------------
2 files changed, 2 insertions(+), 117 deletions(-)
delete mode 100644 Forecast_tools/extract_ECCO_frcst.m
diff --git a/Forecast_tools/download_ECCO_frcst.m b/Forecast_tools/download_ECCO_frcst.m
index c0f3703c..64653c23 100644
--- a/Forecast_tools/download_ECCO_frcst.m
+++ b/Forecast_tools/download_ECCO_frcst.m
@@ -161,13 +161,13 @@ if ~exist(ecco_name)
%
% Extract ECCO
%
- extract_ECCO_frcst(FRCST_dir,FRCST_prefix,prefix,suffix,tindex,missval,...
+ extract_ECCO_frcst(FRCST_dir,FRCST_prefix,prefix,suffix,tindex,missval,...
lon,lon_u,lat,lat_v,depth,...
krange,jrange,jrange_v,...
i1min,i1max,i2min,i2max,i3min,i3max,...
i1min_u,i1max_u,i2min_u,i2max_u,i3min_u,i3max_u,...
time,Yorig)
else
- disp(' ECCO file already exists')
+ disp(' ECCO file allready exist')
end
return
diff --git a/Forecast_tools/extract_ECCO_frcst.m b/Forecast_tools/extract_ECCO_frcst.m
deleted file mode 100644
index 10ad8ffb..00000000
--- a/Forecast_tools/extract_ECCO_frcst.m
+++ /dev/null
@@ -1,115 +0,0 @@
-function extract_ECCO_frcst(FRCST_dir,FRCST_prefix,prefix,suffix,tindex,missval,...
- lon,lon_u,lat,lat_v,depth,...
- krange,jrange,jrange_v,...
- i1min,i1max,i2min,i2max,i3min,i3max,...
- i1min_u,i1max_u,i2min_u,i2max_u,i3min_u,i3max_u,...
- time,Yorig)
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-% Extract a subset from ECCO using DODS
-% Write it in a local file (keeping the classic
-% SODA netcdf format)
-%
-%
-% Further Information:
-% http://www.croco-ocean.org
-%
-% This file is part of CROCOTOOLS
-%
-% CROCOTOOLS is free software; you can redistribute it and/or modify
-% it under the terms of the GNU General Public License as published
-% by the Free Software Foundation; either version 2 of the License,
-% or (at your option) any later version.
-%
-% CROCOTOOLS is distributed in the hope that it will be useful, but
-% WITHOUT ANY WARRANTY; without even the implied warranty of
-% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-% GNU General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with this program; if not, write to the Free Software
-% Foundation, Inc., 59 Temple Place, Suite 330, Boston,
-% MA 02111-1307 USA
-%
-% Copyright (c) 2006 by Pierrick Penven
-% e-mail:Pierrick.Penven@ird.fr
-%
-% Updated 9-Sep-2006 by Pierrick Penven
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-disp([' Download ECCO'])
-trange=['[',num2str(tindex-1),':',num2str(tindex-1),']'];
-%
-% Get the time
-%
-%vname='Have';
-%fname=[prefix,vname,suffix];
-%time=readdap(fname,'time',trange)
-%time=floor(time/24+datenum(1970,1,1));
-%disp([' Date: ',datestr(time)])
-%time=time-datenum(Yorig,1,1)
-%
-% Get SSH
-%
-disp(' ...SSH')
-vname='Have';
-fname=[vname,suffix];
-ssh=getdap(prefix,fname,vname,...
- trange,'',jrange,...
- i1min,i1max,i2min,i2max,i3min,i3max);
-ssh=shiftdim(ssh,2);
-ssh(ssh<=missval)=NaN;
-%
-% Get U
-%
-disp(' ...U')
-vname='Uave';
-fname=[vname,suffix];
-u=getdap(prefix,fname,vname,...
- trange,krange,jrange,...
- i1min_u,i1max_u,i2min_u,i2max_u,i3min_u,i3max_u);
-u=permute(u,[4 3 1 2]);
-u(u<=missval)=NaN;
-%
-% Get V
-%
-disp(' ...V')
-vname='Vave';
-fname=[vname,suffix];
-v=getdap(prefix,fname,vname,...
- trange,krange,jrange_v,...
- i1min,i1max,i2min,i2max,i3min,i3max);
-v=permute(v,[4 3 1 2]);
-v(v<=missval)=NaN;
-%
-% Get TEMP
-%
-disp(' ...TEMP')
-vname='Tave';
-fname=[vname,suffix];
-temp=getdap(prefix,fname,vname,...
- trange,krange,jrange,...
- i1min,i1max,i2min,i2max,i3min,i3max);
-temp=permute(temp,[4 3 1 2]);
-temp(temp<=missval)=NaN;
-%
-% Get SALT
-%
-disp(' ...SALT')
-vname='Save';
-fname=[vname,suffix];
-salt=getdap(prefix,fname,vname,...
- trange,krange,jrange,...
- i1min,i1max,i2min,i2max,i3min,i3max);
-salt=permute(salt,[4 3 1 2]);
-salt(salt<=missval)=NaN;
-%
-% Create the ECCO file
-%
-create_OGCM([FRCST_dir,FRCST_prefix,num2str(time),'.cdf'],...
- lon,lat,lon_u,lat,lon,lat_v,depth,time,...
- squeeze(temp),squeeze(salt),squeeze(u),...
- squeeze(v),squeeze(ssh),Yorig)
-%
-return
--
GitLab