C----------------------------------------
C Naming of adjoint common blocks:
C Retain naming convention of TAF version 1 via flow directives

c$taf COMMON ptracers_fields  ADNAME = adptracers_fields
c$taf COMMON ptracers_fields FTLNAME = g_ptracers_fields
C----------------------------------------

C----------------------------------------
C subroutine  ptracers_check_pickup
C----------------------------------------
CADJ SUBROUTINE PTRACERS_CHECK_PICKUP  INPUT  = 1,2,3,4,5
CADJ SUBROUTINE PTRACERS_CHECK_PICKUP  OUTPUT =

C----------------------------------------
C subroutine  ptracers_debug
C----------------------------------------
CADJ SUBROUTINE ptracers_debug  INPUT  = 1
CADJ SUBROUTINE ptracers_debug  OUTPUT =
