New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
obs_vel_io.F90 in branches/2014/dev_r4704_NOC5_MPP_BDY_UPDATE/NEMOGCM/TOOLS/OBSTOOLS/src – NEMO

source: branches/2014/dev_r4704_NOC5_MPP_BDY_UPDATE/NEMOGCM/TOOLS/OBSTOOLS/src/obs_vel_io.F90 @ 6225

Last change on this file since 6225 was 6225, checked in by jamesharle, 8 years ago

Update MPP_BDY_UPDATE branch to be consistent with head of trunk

File size: 1.2 KB
Line 
1MODULE obs_vel_io
2   !!======================================================================
3   !!                       ***  MODULE obs_vel_io  ***
4   !! Observation operators : I/O for TAO velocity data
5   !!======================================================================
6   !! History :
7   !!             !  09-01  (K. Mogensen) Initial version based on obs_read_taovel
8   !!----------------------------------------------------------------------
9   !!----------------------------------------------------------------------
10   !!   read_taofile    :  Read a obfbdata structure from an TAO velocity file.
11   !!----------------------------------------------------------------------
12   USE par_kind
13   USE obs_utils
14   USE obs_fbm
15   USE obs_conv
16   USE in_out_manager
17   USE netcdf
18   IMPLICIT NONE
19
20   INTEGER, PARAMETER :: imaxlev = 10000
21
22   !!----------------------------------------------------------------------
23   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
24   !! $Id: obs_vel_io.F90 2287 2010-10-18 07:53:52Z smasson $
25   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
26   !!----------------------------------------------------------------------
27
28CONTAINS
29
30#include "obsvel_io.h90"
31
32END MODULE obs_vel_io
Note: See TracBrowser for help on using the repository browser.