Back to home page

MITgcm

 
 

    


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

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
12db830d08 Patr*0001 CBOP
                0002 C     !ROUTINE: flow directives for active_file_loc.F
                0003 C     !INTERFACE:
                0004 C     !DESCRIPTION: \bv
                0005 c     ==================================================================
                0006 c     active_file_loc.flow
                0007 c     ==================================================================
                0008 c     provides flow directives for routines in active_file_loc.F
                0009 c     required by TAMC/TAF
                0010 c     * active_read_xy_loc
                0011 c     * active_read_xyz_loc
                0012 c     * active_read_xz_loc
                0013 c     * active_read_yz_loc
                0014 c     * active_write_xy_loc
                0015 c     * active_write_xyz_loc
                0016 c     * active_write_xz_loc
                0017 c     * active_write_yz_loc
                0018 c     ==================================================================
                0019 c     active_file_loc.flow
                0020 c     ==================================================================
                0021 C     \ev
                0022 CEOP
                0023 
                0024 c----------------------------------------
                0025 c subroutine active_read_xy_loc
                0026 c----------------------------------------
                0027 cadj SUBROUTINE active_read_xy_loc FTLNAME = g_active_read_xy_loc
                0028 cadj SUBROUTINE active_read_xy_loc ADNAME  = adactive_read_xy_loc
                0029 cadj SUBROUTINE active_read_xy_loc INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0030 cadj SUBROUTINE active_read_xy_loc OUTPUT  =    2
438282c1af Patr*0031 cadj SUBROUTINE active_read_xy_loc ACTIVE  =    2,                8
                0032 cadj SUBROUTINE active_read_xy_loc DEPEND  = 1,    3, 4, 5, 6, 7, 8
12db830d08 Patr*0033 
                0034 c----------------------------------------
                0035 c subroutine active_read_xyz_loc
                0036 c----------------------------------------
                0037 cadj SUBROUTINE active_read_xyz_loc FTLNAME = g_active_read_xyz_loc
                0038 cadj SUBROUTINE active_read_xyz_loc ADNAME  = adactive_read_xyz_loc
                0039 cadj SUBROUTINE active_read_xyz_loc INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0040 cadj SUBROUTINE active_read_xyz_loc OUTPUT  =    2
438282c1af Patr*0041 cadj SUBROUTINE active_read_xyz_loc ACTIVE  =    2,                8
                0042 cadj SUBROUTINE active_read_xyz_loc DEPEND  = 1,    3, 4, 5, 6, 7, 8
12db830d08 Patr*0043 
                0044 c----------------------------------------
                0045 c subroutine active_read_xz_loc
                0046 c----------------------------------------
                0047 cadj SUBROUTINE active_read_xz_loc FTLNAME = g_active_read_xz_loc
                0048 cadj SUBROUTINE active_read_xz_loc ADNAME  = adactive_read_xz_loc
                0049 cadj SUBROUTINE active_read_xz_loc INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0050 cadj SUBROUTINE active_read_xz_loc OUTPUT  =    2
438282c1af Patr*0051 cadj SUBROUTINE active_read_xz_loc ACTIVE  =    2,                8
                0052 cadj SUBROUTINE active_read_xz_loc DEPEND  = 1,    3, 4, 5, 6, 7, 8
12db830d08 Patr*0053 
                0054 c----------------------------------------
                0055 c subroutine active_read_yz_loc
                0056 c----------------------------------------
                0057 cadj SUBROUTINE active_read_yz_loc FTLNAME = g_active_read_yz_loc
                0058 cadj SUBROUTINE active_read_yz_loc ADNAME  = adactive_read_yz_loc
                0059 cadj SUBROUTINE active_read_yz_loc INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0060 cadj SUBROUTINE active_read_yz_loc OUTPUT  =    2
438282c1af Patr*0061 cadj SUBROUTINE active_read_yz_loc ACTIVE  =    2,                8
                0062 cadj SUBROUTINE active_read_yz_loc DEPEND  = 1,    3, 4, 5, 6, 7, 8
12db830d08 Patr*0063 
                0064 c----------------------------------------
                0065 c subroutine active_write_xy_loc
                0066 c----------------------------------------
                0067 cadj SUBROUTINE active_write_xy_loc FTLNAME = g_active_write_xy_loc
                0068 cadj SUBROUTINE active_write_xy_loc ADNAME  = adactive_write_xy_loc
                0069 cadj SUBROUTINE active_write_xy_loc INPUT   = 1, 2, 3, 4, 5, 6
                0070 cadj SUBROUTINE active_write_xy_loc OUTPUT  =                6
                0071 cadj SUBROUTINE active_write_xy_loc ACTIVE  =    2         , 6
                0072 cadj SUBROUTINE active_write_xy_loc DEPEND  = 1,    3, 4, 5
                0073 
                0074 c----------------------------------------
                0075 c subroutine active_write_xyz_loc
                0076 c----------------------------------------
                0077 cadj SUBROUTINE active_write_xyz_loc FTLNAME = g_active_write_xyz_loc
                0078 cadj SUBROUTINE active_write_xyz_loc ADNAME  = adactive_write_xyz_loc
                0079 cadj SUBROUTINE active_write_xyz_loc INPUT   = 1, 2, 3, 4, 5, 6
                0080 cadj SUBROUTINE active_write_xyz_loc OUTPUT  =                6
                0081 cadj SUBROUTINE active_write_xyz_loc ACTIVE  =    2         , 6
                0082 cadj SUBROUTINE active_write_xyz_loc DEPEND  = 1,    3, 4, 5
                0083 
                0084 c----------------------------------------
                0085 c subroutine active_write_xz_loc
                0086 c----------------------------------------
                0087 cadj SUBROUTINE active_write_xz_loc FTLNAME = g_active_write_xz_loc
                0088 cadj SUBROUTINE active_write_xz_loc ADNAME  = adactive_write_xz_loc
                0089 cadj SUBROUTINE active_write_xz_loc INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0090 cadj SUBROUTINE active_write_xz_loc OUTPUT  =    2
                0091 cadj SUBROUTINE active_write_xz_loc ACTIVE  =    2
                0092 cadj SUBROUTINE active_write_xz_loc DEPEND  = 1,    3, 4, 5, 6, 7
                0093 
                0094 c----------------------------------------
                0095 c subroutine active_write_yz_loc
                0096 c----------------------------------------
                0097 cadj SUBROUTINE active_write_yz_loc FTLNAME = g_active_write_yz_loc
                0098 cadj SUBROUTINE active_write_yz_loc ADNAME  = adactive_write_yz_loc
                0099 cadj SUBROUTINE active_write_yz_loc INPUT   = 1   , 3, 4, 5, 6, 7, 8
                0100 cadj SUBROUTINE active_write_yz_loc OUTPUT  =    2
                0101 cadj SUBROUTINE active_write_yz_loc ACTIVE  =    2
                0102 cadj SUBROUTINE active_write_yz_loc DEPEND  = 1,    3, 4, 5, 6, 7
                0103 
                0104