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 | |
---|---|
|
|
File size: 796 bytes |
Rev | Line | |
---|---|---|
[3000] | 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.