C $Header: /u/gcmpack/MITgcm/pkg/autodiff/active_file_gen.flow,v 1.1 2012/08/05 20:24:48 jmc Exp $ C $Name: $ CBOP C !ROUTINE: flow directives for active_file_gen.F C !INTERFACE: C !DESCRIPTION: \bv C ================================================================== C active_file_gen.flow C ================================================================== C provides flow directives for routines in active_file_gen.F C required by TAMC/TAF C * ACTIVE_READ_GEN_RL C * ACTIVE_READ_GEN_RS C * ACTIVE_WRITE_GEN_RL C * ACTIVE_WRITE_GEN_RS C ================================================================== C active_file_gen.flow C ================================================================== C \ev CEOP C- Note: nothing active beyond column 72 ! C---------------------------------------- C SUBROUTINE ACTIVE_READ_GEN_RL C---------------------------------------- cadj SUBROUTINE ACTIVE_READ_GEN_RL FTLNAME = g_ACTIVE_READ_GEN_RL cadj SUBROUTINE ACTIVE_READ_GEN_RL ADNAME = adACTIVE_READ_GEN_RL cadj SUBROUTINE ACTIVE_READ_GEN_RL INPUT = 1 , 3,4,5,6,7,8,9,10, 11 cadj SUBROUTINE ACTIVE_READ_GEN_RL OUTPUT = 2 cadj SUBROUTINE ACTIVE_READ_GEN_RL ACTIVE = 2, 11 cadj SUBROUTINE ACTIVE_READ_GEN_RL DEPEND = 1, 3,4,5,6,7,8,9,10, 11 C---------------------------------------- C SUBROUTINE ACTIVE_READ_GEN_RS C---------------------------------------- cadj SUBROUTINE ACTIVE_READ_GEN_RS FTLNAME = g_ACTIVE_READ_GEN_RS cadj SUBROUTINE ACTIVE_READ_GEN_RS ADNAME = adACTIVE_READ_GEN_RS cadj SUBROUTINE ACTIVE_READ_GEN_RS INPUT = 1 , 3,4,5,6,7,8,9,10, 11 cadj SUBROUTINE ACTIVE_READ_GEN_RS OUTPUT = 2 cadj SUBROUTINE ACTIVE_READ_GEN_RS ACTIVE = 2, 11 cadj SUBROUTINE ACTIVE_READ_GEN_RS DEPEND = 1, 3,4,5,6,7,8,9,10, 11 C---------------------------------------- C SUBROUTINE ACTIVE_WRITE_GEN_RL C---------------------------------------- cadj SUBROUTINE ACTIVE_WRITE_GEN_RL FTLNAME = g_ACTIVE_WRITE_GEN_RL cadj SUBROUTINE ACTIVE_WRITE_GEN_RL ADNAME = adACTIVE_WRITE_GEN_RL cadj SUBROUTINE ACTIVE_WRITE_GEN_RL INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL OUTPUT = 9 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL ACTIVE = 2, 9 cadj SUBROUTINE ACTIVE_WRITE_GEN_RL DEPEND = 1, 3, 4, 5, 6, 7, 8 C---------------------------------------- C SUBROUTINE ACTIVE_WRITE_GEN_RS C---------------------------------------- cadj SUBROUTINE ACTIVE_WRITE_GEN_RS FTLNAME = g_ACTIVE_WRITE_GEN_RS cadj SUBROUTINE ACTIVE_WRITE_GEN_RS ADNAME = adACTIVE_WRITE_GEN_RS cadj SUBROUTINE ACTIVE_WRITE_GEN_RS INPUT = 1, 2, 3, 4, 5, 6, 7, 8, 9 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS OUTPUT = 9 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS ACTIVE = 2, 9 cadj SUBROUTINE ACTIVE_WRITE_GEN_RS DEPEND = 1, 3, 4, 5, 6, 7, 8