[Dart-dev] [3436] DART/trunk/models/MITgcm_ocean: fixing subversion
keywords
nancy at ucar.edu
nancy at ucar.edu
Mon Jun 30 11:58:58 MDT 2008
An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080630/6df8c6f7/attachment-0001.html
-------------- next part --------------
Modified: DART/trunk/models/MITgcm_ocean/column_rand.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/column_rand.f90 2008-06-30 17:53:50 UTC (rev 3435)
+++ DART/trunk/models/MITgcm_ocean/column_rand.f90 2008-06-30 17:58:58 UTC (rev 3436)
@@ -7,9 +7,9 @@
! <next few lines under version control, do not edit>
! $URL$
-! $Id: column_rand.f90 3131 2007-11-01 23:21:49Z thoar $
+! $Id$
! $Revision$
-! $Date: 2007-11-01 17:21:49 -0600 (Thu, 01 Nov 2007) $
+! $Date$
! Allows creation of input file for generating a set of randomly located
! observation stations with full column of obs.
@@ -25,7 +25,7 @@
character(len=128), parameter :: &
source = "$URL$", &
revision = "$Revision$", &
- revdate = "$Date: 2007-11-01 17:21:49 -0600 (Thu, 01 Nov 2007) $"
+ revdate = "$Date$"
integer :: level, num_cols, num_levs, i, iunit
real(r8) :: lat, lon, t_err_var, uv_err_var, ps_err_var
Property changes on: DART/trunk/models/MITgcm_ocean/column_rand.f90
___________________________________________________________________
Name: svn:keywords
- "Date Rev Author URL Id"
+ Date Revision Author HeadURL Id
Modified: DART/trunk/models/MITgcm_ocean/create_ocean_obs.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/create_ocean_obs.f90 2008-06-30 17:53:50 UTC (rev 3435)
+++ DART/trunk/models/MITgcm_ocean/create_ocean_obs.f90 2008-06-30 17:58:58 UTC (rev 3436)
@@ -6,10 +6,10 @@
program create_ocean_obs
! <next few lines under version control, do not edit>
-! $URL: http://subversion.ucar.edu/DAReS/DART/trunk/ncep_obs/create_ocean_obs.f90 $
-! $Id: create_ocean_obs.f90 3304 2008-04-09 22:20:02Z nancy $
-! $Revision: 3304 $
-! $Date: 2008-04-09 16:20:02 -0600 (Wed, 09 Apr 2008) $
+! $URL$
+! $Id$
+! $Revision$
+! $Date$
! Initial program to read the raw ocean observations and insert them
! into an observation sequence. To make things easy ... we will mandate
@@ -29,9 +29,9 @@
! version controlled file description for error handling, do not edit
character(len=128), parameter :: &
- source = "$URL: http://subversion.ucar.edu/DAReS/DART/trunk/ncep_obs/create_ocean_obs.f90 $", &
- revision = "$Revision: 3304 $", &
- revdate = "$Date: 2008-04-09 16:20:02 -0600 (Wed, 09 Apr 2008) $"
+ source = "$URL$", &
+ revision = "$Revision$", &
+ revdate = "$Date$"
type(obs_sequence_type) :: seq
Property changes on: DART/trunk/models/MITgcm_ocean/create_ocean_obs.f90
___________________________________________________________________
Name: svn:keywords
+ Date Revision Author HeadURL Id
Modified: DART/trunk/models/MITgcm_ocean/matlab/CheckMask.m
===================================================================
--- DART/trunk/models/MITgcm_ocean/matlab/CheckMask.m 2008-06-30 17:53:50 UTC (rev 3435)
+++ DART/trunk/models/MITgcm_ocean/matlab/CheckMask.m 2008-06-30 17:58:58 UTC (rev 3436)
@@ -1,4 +1,4 @@
-function CheckMask()
+function b = CheckMask()
% CheckMask
%
%
@@ -17,24 +17,43 @@
%-------------------------------------------------------------------------------
%-------------------------------------------------------------------------------
-mitbase = '/fs/image/home/nancy/subversion/trunk/models/MITgcm_ocean/data2/';
+%mitbase = '/fs/image/home/nancy/subversion/trunk/models/MITgcm_ocean/data2/';
-S = rdmds(sprintf('%s/%s.0000040992',mitbase,'S'));
-Sinds = find(S == 0.0); clear S;
+mitbase = '/ptmp/thoar/MITgcm/exp2';
+fname = sprintf('%s/advance_temp0/bathymetry.bin',mitbase);
+b = rdslab(fname);
-T = rdmds(sprintf('%s/%s.0000040992',mitbase,'T'));
-Tinds = find(T == 0.0); clear T;
+%Sinds = find(S == 0.0); clear S;
+%
+%T = rdmds(sprintf('%s/%s.0000040992',mitbase,'T'));
+%Tinds = find(T == 0.0); clear T;
+%
+%U = rdmds(sprintf('%s/%s.0000040992',mitbase,'U'));
+%Uinds = find(U == 0.0); clear U;
+%
+%V = rdmds(sprintf('%s/%s.0000040992',mitbase,'V'));
+%Vinds = find(V == 0.0); clear V;
+%
+%SSH = rdmds(sprintf('%s/%s.0000040992',mitbase,'Eta'));
-U = rdmds(sprintf('%s/%s.0000040992',mitbase,'U'));
-Uinds = find(U == 0.0); clear U;
+%disp(sprintf('S has %d zeros',length(Sinds)))
+%disp(sprintf('T has %d zeros',length(Tinds)))
+%disp(sprintf('U has %d zeros',length(Uinds)))
+%disp(sprintf('V has %d zeros',length(Vinds)))
-V = rdmds(sprintf('%s/%s.0000040992',mitbase,'V'));
-Vinds = find(V == 0.0); clear V;
+function x = rdslab(fname)
-SSH = rdmds(sprintf('%s/%s.0000040992',mitbase,'Eta'));
+if (exist(fname,'file'))
+ disp(sprintf('Opening %s',fname))
+else
+ error('Opening %s',fname)
+end
-disp(sprintf('S has %d zeros',length(Sinds)))
-disp(sprintf('T has %d zeros',length(Tinds)))
-disp(sprintf('U has %d zeros',length(Uinds)))
-disp(sprintf('V has %d zeros',length(Vinds)))
+fid = fopen(fname,'rb','ieee-be');
+[x count] = fread(fid,[256 225],'float32');
+if (count ~= 256*225)
+ error('only read %d of %d items from %s',count,256*225,fname)
+end
+fclose(fid)
+
Modified: DART/trunk/models/MITgcm_ocean/model_mod.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/model_mod.f90 2008-06-30 17:53:50 UTC (rev 3435)
+++ DART/trunk/models/MITgcm_ocean/model_mod.f90 2008-06-30 17:58:58 UTC (rev 3436)
@@ -7,9 +7,9 @@
! <next few lines under version control, do not edit>
! $URL$
-! $Id: model_mod.f90 2786 2007-04-03 22:44:36Z nancy $
+! $Id$
! $Revision$
-! $Date: 2007-04-03 16:44:36 -0600 (Tue, 03 Apr 2007) $
+! $Date$
! This is the interface between the MITgcm ocean model and DART.
@@ -68,7 +68,7 @@
character(len=128), parameter :: &
source = "$URL$", &
revision = "$Revision$", &
- revdate = "$Date: 2007-04-03 16:44:36 -0600 (Tue, 03 Apr 2007) $"
+ revdate = "$Date$"
character(len=129) :: msgstring
logical, save :: module_initialized = .false.
Property changes on: DART/trunk/models/MITgcm_ocean/model_mod.f90
___________________________________________________________________
Name: svn:keywords
- "Date Rev Author URL Id"
+ Date Revision Author HeadURL Id
Modified: DART/trunk/models/MITgcm_ocean/ocean_obs_mod.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/ocean_obs_mod.f90 2008-06-30 17:53:50 UTC (rev 3435)
+++ DART/trunk/models/MITgcm_ocean/ocean_obs_mod.f90 2008-06-30 17:58:58 UTC (rev 3436)
@@ -6,10 +6,10 @@
module ocean_obs_mod
! <next few lines under version control, do not edit>
-! $URL: http://subversion.ucar.edu/DAReS/DART/trunk/ncep_obs/ocean_obs_mod.f90 $
-! $Id: ocean_obs_mod.f90 3349 2008-05-16 19:35:31Z thoar $
-! $Revision: 3349 $
-! $Date: 2008-05-16 13:35:31 -0600 (Fri, 16 May 2008) $
+! $URL$
+! $Id$
+! $Revision$
+! $Date$
use types_mod, only : r8, rad2deg, PI
use obs_def_mod, only : obs_def_type, get_obs_def_time, read_obs_def, &
@@ -46,9 +46,9 @@
! version controlled file description for error handling, do not edit
character(len=128), parameter :: &
- source = "$URL: http://subversion.ucar.edu/DAReS/DART/trunk/ncep_obs/ocean_obs_mod.f90 $", &
- revision = "$Revision: 3349 $", &
- revdate = "$Date: 2008-05-16 13:35:31 -0600 (Fri, 16 May 2008) $"
+ source = "$URL$", &
+ revision = "$Revision$", &
+ revdate = "$Date$"
logical, save :: module_initialized = .false.
Property changes on: DART/trunk/models/MITgcm_ocean/ocean_obs_mod.f90
___________________________________________________________________
Name: svn:keywords
+ Date Revision Author HeadURL Id
Property changes on: DART/trunk/models/MITgcm_ocean/trans_date_to_dart.f90
___________________________________________________________________
Name: svn:keywords
+ Date Revision Author HeadURL Id
Property changes on: DART/trunk/models/MITgcm_ocean/trans_pv_sv.f90
___________________________________________________________________
Name: svn:keywords
- Date Rev Author URL Id
+ Date Revision Author HeadURL Id
Modified: DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90 2008-06-30 17:53:50 UTC (rev 3435)
+++ DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90 2008-06-30 17:58:58 UTC (rev 3436)
@@ -16,10 +16,10 @@
!----------------------------------------------------------------------
! <next few lines under version control, do not edit>
-! $URL: http://subversion.ucar.edu/DAReS/DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90 $
-! $Id: trans_sv_pv.f90 3258 2008-03-14 15:58:36Z thoar $
-! $Revision: 3258 $
-! $Date: 2008-03-14 09:58:36 -0600 (Fri, 14 Mar 2008) $
+! $URL$
+! $Id$
+! $Revision$
+! $Date$
use types_mod, only : r4, r8
use utilities_mod, only : E_ERR, E_WARN, E_MSG, error_handler, open_file, &
@@ -36,9 +36,9 @@
! version controlled file description for error handling, do not edit
character(len=128), parameter :: &
- source = "$URL: http://subversion.ucar.edu/DAReS/DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90 $", &
- revision = "$Revision: 3258 $", &
- revdate = "$Date: 2008-03-14 09:58:36 -0600 (Fri, 14 Mar 2008) $"
+ source = "$URL$", &
+ revision = "$Revision$", &
+ revdate = "$Date$"
character (len = 128) :: file_in = 'assim_model_state_ic'
Property changes on: DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90
___________________________________________________________________
Name: svn:keywords
+ Date Revision Author HeadURL Id
Property changes on: DART/trunk/models/MITgcm_ocean/trans_time.f90
___________________________________________________________________
Name: svn:keywords
- "Date Rev Author URL Id"
+ Date Revision Author HeadURL Id
Property changes on: DART/trunk/models/MITgcm_ocean/work/input.nml
___________________________________________________________________
Name: svn:eol-style
+ native
More information about the Dart-dev
mailing list