35 lines
796 B
Fortran
Executable File
35 lines
796 B
Fortran
Executable File
MODULE proftools
|
|
|
|
! Various tools to manipulate fb profiles data.
|
|
|
|
USE obs_fbm
|
|
IMPLICIT NONE
|
|
|
|
CONTAINS
|
|
|
|
SUBROUTINE sealsfromargo( fbdata )
|
|
|
|
! Separate seals from argo
|
|
|
|
! Notes:
|
|
! Argo is type 831
|
|
! Seals have station ids from Q9900000 to Q9900328
|
|
! according to
|
|
! http://www.nodc.noaa.gov/GTSPP/document/codetbls/shipcode/name_1-C.html
|
|
! on 2010-04-28 but we assume that all Q990???? are seals
|
|
|
|
TYPE(obfbdata) :: fbdata
|
|
CHARACTER(len=ilentyp) :: cdtyp
|
|
INTEGER :: i
|
|
|
|
DO i=1,fbdata%nobs
|
|
|
|
cdtyp=ADJUSTL(fbdata%cdtyp(i))
|
|
IF ((cdtyp(1:3)=='831') .AND. &
|
|
&(fbdata%cdwmo(i)(1:4)=='Q990')) fbdata%cdtyp(i)='Seal'
|
|
ENDDO
|
|
|
|
END SUBROUTINE sealsfromargo
|
|
|
|
END MODULE proftools
|