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/dev_r5518_GO6_starthour_obsoper/NEMOGCM/TOOLS/OBSTOOLS/src – NEMO

source: branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/TOOLS/OBSTOOLS/src/proftools.F90 @ 11884

Last change on this file since 11884 was 3000, checked in by djlea, 12 years ago

Updated obstools. Addition of headers to programs which explain what each utility does and how to run it. All the programs now build using the naketools utility.

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.