C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bbl/code/Attic/bbl_ad.flow,v 1.2 2011/08/06 03:11:42 dimitri dead $ 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 =