C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bbl/code/Attic/bbl_ad.flow,v 1.1 2010/11/18 04:00:04 dimitri Exp $ C $Name: $ C---------------------------------------- C subroutine bbl_diagnostics_state C---------------------------------------- CADJ SUBROUTINE bbl_diagnostics_state INPUT = 1,2,3 CADJ SUBROUTINE bbl_diagnostics_state OUTPUT = C---------------------------------------- C subroutine bbl_read_pickup C---------------------------------------- CADJ SUBROUTINE bbl_read_pickup INPUT = 1,2 CADJ SUBROUTINE bbl_read_pickup OUTPUT =