C $Header: /u/gcmpack/MITgcm/pkg/ptracers/ptracers_ad.flow,v 1.7 2013/11/18 21:32:10 heimbach Exp $ C $Name: $ 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 = C---------------------------------------- C subroutine ptracers_timeave C---------------------------------------- CADJ SUBROUTINE ptracers_timeave INPUT = 1,2,3,4,5 CADJ SUBROUTINE ptracers_timeave OUTPUT =