source:
trunk/NEMOGCM/TOOLS/OBSTOOLS/src/proftools.F90
@
3294
Last change on this file since 3294 was 3000, checked in by djlea, 13 years ago | |
---|---|
File size: 796 bytes |
Line | |
---|---|
1 | MODULE proftools |
2 | |
3 | ! Various tools to manipulate fb profiles data. |
4 | |
5 | USE obs_fbm |
6 | IMPLICIT NONE |
7 | |
8 | CONTAINS |
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 | |
34 | END MODULE proftools |
Note: See TracBrowser
for help on using the repository browser.