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.
proftools.F90 in branches/UKMO/icebergs_restart_single_file/NEMOGCM/TOOLS/OBSTOOLS/src – NEMO

source: branches/UKMO/icebergs_restart_single_file/NEMOGCM/TOOLS/OBSTOOLS/src/proftools.F90 @ 6019

Last change on this file since 6019 was 6019, checked in by timgraham, 8 years ago

Reinstated svn keywords before upgrading to head of trunk

  • Property svn:keywords set to Id
File size: 796 bytes
Line 
1MODULE proftools
2
3   ! Various tools to manipulate fb profiles data.
4
5   USE obs_fbm
6   IMPLICIT NONE
7
8CONTAINS
9
10   SUBROUTINE sealsfromargo( fbdata )
11
12      ! Separate seals  from argo
13
14      ! Notes:
15      ! Argo is type 831
16      ! Seals have station ids from Q9900000 to Q9900328
17      ! according to
18      ! http://www.nodc.noaa.gov/GTSPP/document/codetbls/shipcode/name_1-C.html
19      ! on 2010-04-28 but we assume that all Q990???? are seals
20     
21      TYPE(obfbdata) :: fbdata
22      CHARACTER(len=ilentyp) :: cdtyp
23      INTEGER :: i
24
25      DO i=1,fbdata%nobs
26         
27         cdtyp=ADJUSTL(fbdata%cdtyp(i))
28         IF ((cdtyp(1:3)=='831') .AND. &
29            &(fbdata%cdwmo(i)(1:4)=='Q990')) fbdata%cdtyp(i)='Seal'
30      ENDDO
31
32   END SUBROUTINE sealsfromargo
33
34END MODULE proftools
Note: See TracBrowser for help on using the repository browser.