Back to home page

MITgcm

 
 

    


Warning, /pkg/autodiff/active_file.flow is written in an unsupported language. File is not indexed.

view on githubraw file Latest commit 04904a06 on 2020-05-13 00:42:59 UTC
d151781088 Patr*0001 CBOP
                0002 C     !ROUTINE: flow directives for active_file.F
                0003 C     !INTERFACE:
                0004 C     !DESCRIPTION: \bv
                0005 c     ==================================================================
                0006 c     active_file.flow
                0007 c     ==================================================================
                0008 c     provides flow directives for routines in active_file.F
                0009 c     required by TAMC/TAF
                0010 c     * active_read_xy
                0011 c     * active_read_xyz
                0012 c     * active_read_xz
                0013 c     * active_read_yz
04904a066e Timo*0014 c     * active_read_1d
d151781088 Patr*0015 c     * active_write_xy
                0016 c     * active_write_xyz
                0017 c     * active_write_xz
                0018 c     * active_write_yz
04904a066e Timo*0019 c     * active_write_1d
d151781088 Patr*0020 c     ==================================================================
                0021 c     active_file.flow
                0022 c     ==================================================================
                0023 C     \ev
                0024 CEOP
                0025 
2dcaa8b9a5 Patr*0026 c----------------------------------------
                0027 c subroutine active_read_xy
                0028 c----------------------------------------
c8d403a76e Patr*0029 cadj SUBROUTINE active_read_xy FTLNAME = g_active_read_xy
2dcaa8b9a5 Patr*0030 cadj SUBROUTINE active_read_xy ADNAME  = adactive_read_xy
                0031 cadj SUBROUTINE active_read_xy INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0032 cadj SUBROUTINE active_read_xy OUTPUT  =    2
438282c1af Patr*0033 cadj SUBROUTINE active_read_xy ACTIVE  =    2,                8
                0034 cadj SUBROUTINE active_read_xy DEPEND  = 1,    3, 4, 5, 6, 7, 8
2dcaa8b9a5 Patr*0035 
                0036 c----------------------------------------
                0037 c subroutine active_read_xyz
                0038 c----------------------------------------
c8d403a76e Patr*0039 cadj SUBROUTINE active_read_xyz FTLNAME = g_active_read_xyz
2dcaa8b9a5 Patr*0040 cadj SUBROUTINE active_read_xyz ADNAME  = adactive_read_xyz
                0041 cadj SUBROUTINE active_read_xyz INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0042 cadj SUBROUTINE active_read_xyz OUTPUT  =    2
438282c1af Patr*0043 cadj SUBROUTINE active_read_xyz ACTIVE  =    2,                8
                0044 cadj SUBROUTINE active_read_xyz DEPEND  = 1,    3, 4, 5, 6, 7, 8
2dcaa8b9a5 Patr*0045 
                0046 c----------------------------------------
                0047 c subroutine active_read_xz
                0048 c----------------------------------------
c8d403a76e Patr*0049 cadj SUBROUTINE active_read_xz FTLNAME = g_active_read_xz
2dcaa8b9a5 Patr*0050 cadj SUBROUTINE active_read_xz ADNAME  = adactive_read_xz
                0051 cadj SUBROUTINE active_read_xz INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0052 cadj SUBROUTINE active_read_xz OUTPUT  =    2
438282c1af Patr*0053 cadj SUBROUTINE active_read_xz ACTIVE  =    2,                8
                0054 cadj SUBROUTINE active_read_xz DEPEND  = 1,    3, 4, 5, 6, 7, 8
2dcaa8b9a5 Patr*0055 
                0056 c----------------------------------------
                0057 c subroutine active_read_yz
                0058 c----------------------------------------
c8d403a76e Patr*0059 cadj SUBROUTINE active_read_yz FTLNAME = g_active_read_yz
2dcaa8b9a5 Patr*0060 cadj SUBROUTINE active_read_yz ADNAME  = adactive_read_yz
                0061 cadj SUBROUTINE active_read_yz INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0062 cadj SUBROUTINE active_read_yz OUTPUT  =    2
438282c1af Patr*0063 cadj SUBROUTINE active_read_yz ACTIVE  =    2,                8
                0064 cadj SUBROUTINE active_read_yz DEPEND  = 1,    3, 4, 5, 6, 7, 8
2dcaa8b9a5 Patr*0065 
                0066 c----------------------------------------
04904a066e Timo*0067 c subroutine active_read_yz
                0068 c----------------------------------------
                0069 cadj SUBROUTINE active_read_1d FTLNAME = g_active_read_1d
                0070 cadj SUBROUTINE active_read_1d ADNAME  = adactive_read_1d
                0071 cadj SUBROUTINE active_read_1d INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0072 cadj SUBROUTINE active_read_1d OUTPUT  =    2
                0073 cadj SUBROUTINE active_read_1d ACTIVE  =    2,                8
                0074 cadj SUBROUTINE active_read_1d DEPEND  = 1,    3, 4, 5, 6, 7, 8
                0075 
                0076 c----------------------------------------
2dcaa8b9a5 Patr*0077 c subroutine active_write_xy
                0078 c----------------------------------------
c8d403a76e Patr*0079 cadj SUBROUTINE active_write_xy FTLNAME = g_active_write_xy
2dcaa8b9a5 Patr*0080 cadj SUBROUTINE active_write_xy ADNAME  = adactive_write_xy
                0081 cadj SUBROUTINE active_write_xy INPUT   = 1, 2, 3, 4, 5, 6
                0082 cadj SUBROUTINE active_write_xy OUTPUT  =                6
                0083 cadj SUBROUTINE active_write_xy ACTIVE  =    2         , 6
                0084 cadj SUBROUTINE active_write_xy DEPEND  = 1,    3, 4, 5
                0085 
                0086 c----------------------------------------
                0087 c subroutine active_write_xyz
                0088 c----------------------------------------
c8d403a76e Patr*0089 cadj SUBROUTINE active_write_xyz FTLNAME = g_active_write_xyz
2dcaa8b9a5 Patr*0090 cadj SUBROUTINE active_write_xyz ADNAME  = adactive_write_xyz
                0091 cadj SUBROUTINE active_write_xyz INPUT   = 1, 2, 3, 4, 5, 6
                0092 cadj SUBROUTINE active_write_xyz OUTPUT  =                6
                0093 cadj SUBROUTINE active_write_xyz ACTIVE  =    2         , 6
                0094 cadj SUBROUTINE active_write_xyz DEPEND  = 1,    3, 4, 5
                0095 
                0096 c----------------------------------------
                0097 c subroutine active_write_xz
                0098 c----------------------------------------
c8d403a76e Patr*0099 cadj SUBROUTINE active_write_xz FTLNAME = g_active_write_xz
2dcaa8b9a5 Patr*0100 cadj SUBROUTINE active_write_xz ADNAME  = adactive_write_xz
dafb13a791 Jean*0101 cadj SUBROUTINE active_write_xz INPUT   = 1, 2, 3, 4, 5, 6
                0102 cadj SUBROUTINE active_write_xz OUTPUT  =                6
                0103 cadj SUBROUTINE active_write_xz ACTIVE  =    2         , 6
                0104 cadj SUBROUTINE active_write_xz DEPEND  = 1,    3, 4, 5
2dcaa8b9a5 Patr*0105 
                0106 c----------------------------------------
                0107 c subroutine active_write_yz
                0108 c----------------------------------------
c8d403a76e Patr*0109 cadj SUBROUTINE active_write_yz FTLNAME = g_active_write_yz
2dcaa8b9a5 Patr*0110 cadj SUBROUTINE active_write_yz ADNAME  = adactive_write_yz
dafb13a791 Jean*0111 cadj SUBROUTINE active_write_yz INPUT   = 1, 2, 3, 4, 5, 6
                0112 cadj SUBROUTINE active_write_yz OUTPUT  =                6
                0113 cadj SUBROUTINE active_write_yz ACTIVE  =    2         , 6
                0114 cadj SUBROUTINE active_write_yz DEPEND  = 1,    3, 4, 5
2dcaa8b9a5 Patr*0115 
04904a066e Timo*0116 c----------------------------------------
                0117 c subroutine active_write_1d
                0118 c----------------------------------------
                0119 cadj SUBROUTINE active_write_1d FTLNAME = g_active_write_1d
                0120 cadj SUBROUTINE active_write_1d ADNAME  = adactive_write_1d
                0121 cadj SUBROUTINE active_write_1d INPUT   = 1, 2, 3, 4, 5, 6, 7
                0122 cadj SUBROUTINE active_write_1d OUTPUT  =                   7
                0123 cadj SUBROUTINE active_write_1d ACTIVE  =    2            , 7
                0124 cadj SUBROUTINE active_write_1d DEPEND  = 1,    3, 4, 5, 6