! $Id: ropp_pp_preprocess_CHAMP.f90 2021 2009-01-16 10:49:04Z frhl $

SUBROUTINE ropp_pp_preprocess_CHAMP(ro_data, config)

!****s* Preprocessing/ropp_pp_preprocess_CHAMP *
!
! NAME
!    ropp_pp_preprocess_CHAMP - Mission-specific Level1a data preprocessing
!                               for CHAMP
!
! SYNOPSIS
!    CALL ropp_pp_preprocess_CHAMP(ro_data, config)
!
! DESCRIPTION
!    1) Amplitude correction
!
! INPUTS
!    type(ROprof)   :: ro_data      ! Radio occultation data strucuture
!    type(PPConfig) :: config       ! Configuration options
!
! OUTPUT
!    type(ROprof)   :: ro_data      ! Corrected radio occultation data
!    type(PPConfig) :: config       ! Configuration options
!
! NOTES
!   Requires ROprof data structure type, defined in ropp_io module. This 
!   routine therefore requires that the ropp_io module is pre-installed before
!   compilation.
!
! REFERENCES
!
! AUTHOR
!   M Gorbunov, Russian Academy of Sciences, Russia.
!   Any comments on this software should be given via the ROM SAF
!   Helpdesk at http://www.romsaf.org
!
! COPYRIGHT
!   Copyright (c) 1998-2010 Michael Gorbunov <michael.gorbunov@zmaw.de>
!   For further details please refer to the file COPYRIGHT
!   which you should have received as part of this distribution.
!
!****

!-------------------------------------------------------------------------------
! 1. Declarations
!-------------------------------------------------------------------------------

  USE typesizes, ONLY: wp => EightByteReal
  USE ropp_io_types, ONLY: ROprof
  USE ropp_pp_preproc, not_this => ropp_pp_preprocess_CHAMP
  USE ropp_pp

  IMPLICIT NONE

  TYPE(ROprof),   INTENT(inout) :: ro_data    ! Radio occultation data strucutre
  TYPE(PPconfig), INTENT(inout) :: config     ! Configuration options
  LOGICAL                       :: dummy

  dummy = config%obs_ok  ! dummy use of otherwise unused argument

!-------------------------------------------------------------------------------
! 2. Correct L2 amplitude if not defined
!-------------------------------------------------------------------------------

  IF ( ANY(ro_data%Lev1a%snr_L2p == 0.0_wp) ) THEN

    ro_data%Lev1a%snr_L2p(:) = ro_data%Lev1a%snr_L1ca(:)

  END IF

END SUBROUTINE ropp_pp_preprocess_CHAMP