Warning, /eesupp/src/exch1_ad.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
55620e3eba Jean*0001 C------------------------------------------
a432e6fcf9 Jean*0002 C directives to specify the adjoint names
0003 C of routines called in the original code
0004 C------------------------------------------
0005 c$taf SUBROUTINE exch_3d_rl ADNAME = adexch_3d_rl
0006 c$taf SUBROUTINE exch_3d_rs ADNAME = adexch_3d_rs
0007 c$taf SUBROUTINE exch_uv_3d_rl ADNAME = adexch_uv_3d_rl
0008 c$taf SUBROUTINE exch_uv_3d_rs ADNAME = adexch_uv_3d_rs
0009 c$taf SUBROUTINE exch_uv_xy_rl ADNAME = adexch_uv_xy_rl
0010 c$taf SUBROUTINE exch_uv_xy_rs ADNAME = adexch_uv_xy_rs
0011 c$taf SUBROUTINE exch_uv_xyz_rl ADNAME = adexch_uv_xyz_rl
0012 c$taf SUBROUTINE exch_uv_xyz_rs ADNAME = adexch_uv_xyz_rs
0013 c$taf SUBROUTINE exch_xy_rl ADNAME = adexch_xy_rl
0014 c$taf SUBROUTINE exch_xy_rs ADNAME = adexch_xy_rs
0015 c$taf SUBROUTINE exch_xyz_rl ADNAME = adexch_xyz_rl
0016 c$taf SUBROUTINE exch_xyz_rs ADNAME = adexch_xyz_rs
0017 c$taf SUBROUTINE exch_uv_agrid_3d_rl ADNAME = adexch_uv_agrid_3d_rl
0018 c$taf SUBROUTINE exch_uv_bgrid_3d_rl ADNAME = adexch_uv_agrid_3d_rl
0019 c$taf SUBROUTINE exch_uv_dgrid_3d_rl ADNAME = adexch_uv_dgrid_3d_rl
0020 c$taf SUBROUTINE exch_sm_3d_rl ADNAME = adexch_sm_3d_rl
0021 c$taf SUBROUTINE exch_z_3d_rl ADNAME = adexch_z_3d_rl
0022
0023 C------------------------------------------
55620e3eba Jean*0024 C TAF flow directives for exch1_RX
0025 C------------------------------------------
0026 c$taf SUBROUTINE exch1_rl INPUT = 1,2,3,4,5,6,7,8,9,10
0027 c$taf SUBROUTINE exch1_rl OUTPUT = 1
0028 c$taf SUBROUTINE exch1_rl ACTIVE = 1
0029 c$taf SUBROUTINE exch1_rl DEPEND = 2,3,4,5,6,7,8,9,10
0030 c$taf SUBROUTINE exch1_rl ADNAME = exch1_rl_ad
0031 c$taf SUBROUTINE exch1_rl FTLNAME = exch1_rl
0032
0033 c$taf SUBROUTINE exch1_rs INPUT = 1,2,3,4,5,6,7,8,9,10
0034 c$taf SUBROUTINE exch1_rs OUTPUT = 1
0035 c$taf SUBROUTINE exch1_rs ACTIVE = 1
0036 c$taf SUBROUTINE exch1_rs DEPEND = 2,3,4,5,6,7,8,9,10
0037 c$taf SUBROUTINE exch1_rs ADNAME = exch1_rs_ad
0038 c$taf SUBROUTINE exch1_rs FTLNAME = exch1_rs
0039
0040 C------------------------------------------
0041 C TAF flow directives for exch1_RX_cube
0042 C------------------------------------------
0043 c$taf SUBROUTINE exch1_rl_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11
0044 c$taf SUBROUTINE exch1_rl_cube OUTPUT = 1
0045 c$taf SUBROUTINE exch1_rl_cube ACTIVE = 1
0046 c$taf SUBROUTINE exch1_rl_cube DEPEND = 2,3,4,5,6,7,8,9,10,11
0047 c$taf SUBROUTINE exch1_rl_cube ADNAME = exch1_rl_cube_ad
0048 c$taf SUBROUTINE exch1_rl_cube FTLNAME = exch1_rl_cube
0049
0050 c$taf SUBROUTINE exch1_rs_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11
0051 c$taf SUBROUTINE exch1_rs_cube OUTPUT = 1
0052 c$taf SUBROUTINE exch1_rs_cube ACTIVE = 1
0053 c$taf SUBROUTINE exch1_rs_cube DEPEND = 2,3,4,5,6,7,8,9,10,11
0054 c$taf SUBROUTINE exch1_rs_cube ADNAME = exch1_rs_cube_ad
0055 c$taf SUBROUTINE exch1_rs_cube FTLNAME = exch1_rs_cube
0056
0057 C------------------------------------------
0058 C TAF flow directives for exch1_z_RX_cube
0059 C------------------------------------------
0060 c$taf SUBROUTINE exch1_z_rl_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11
0061 c$taf SUBROUTINE exch1_z_rl_cube OUTPUT = 1
0062 c$taf SUBROUTINE exch1_z_rl_cube ACTIVE = 1
0063 c$taf SUBROUTINE exch1_z_rl_cube DEPEND = 2,3,4,5,6,7,8,9,10,11
f262e741a1 Jean*0064 c$taf SUBROUTINE exch1_z_rl_cube ADNAME = exch1_z_rl_cube_ad
0065 c$taf SUBROUTINE exch1_z_rl_cube FTLNAME = exch1_z_rl_cube
55620e3eba Jean*0066
0067 c$taf SUBROUTINE exch1_z_rs_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11
0068 c$taf SUBROUTINE exch1_z_rs_cube OUTPUT = 1
0069 c$taf SUBROUTINE exch1_z_rs_cube ACTIVE = 1
0070 c$taf SUBROUTINE exch1_z_rs_cube DEPEND = 2,3,4,5,6,7,8,9,10,11
f262e741a1 Jean*0071 c$taf SUBROUTINE exch1_z_rs_cube ADNAME = exch1_z_rs_cube_ad
0072 c$taf SUBROUTINE exch1_z_rs_cube FTLNAME = exch1_z_rs_cube
55620e3eba Jean*0073
0074 C------------------------------------------
0075 C TAF flow directives for exch1_uv_RX_cube
0076 C------------------------------------------
0077 c$taf SUBROUTINE exch1_uv_rl_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11,12
0078 c$taf SUBROUTINE exch1_uv_rl_cube OUTPUT = 1,2
0079 c$taf SUBROUTINE exch1_uv_rl_cube ACTIVE = 1,2
0080 c$taf SUBROUTINE exch1_uv_rl_cube DEPEND = 3,4,5,6,7,8,9,10,11,12
f262e741a1 Jean*0081 c$taf SUBROUTINE exch1_uv_rl_cube ADNAME = exch1_uv_rl_cube_ad
0082 c$taf SUBROUTINE exch1_uv_rl_cube FTLNAME = exch1_uv_rl_cube
55620e3eba Jean*0083
0084 c$taf SUBROUTINE exch1_uv_rs_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11,12
0085 c$taf SUBROUTINE exch1_uv_rs_cube OUTPUT = 1,2
0086 c$taf SUBROUTINE exch1_uv_rs_cube ACTIVE = 1,2
0087 c$taf SUBROUTINE exch1_uv_rs_cube DEPEND = 3,4,5,6,7,8,9,10,11,12
f262e741a1 Jean*0088 c$taf SUBROUTINE exch1_uv_rs_cube ADNAME = exch1_uv_rs_cube_ad
0089 c$taf SUBROUTINE exch1_uv_rs_cube FTLNAME = exch1_uv_rs_cube
55620e3eba Jean*0090
0091 C------------------------------------------
0092 C TAF flow directives for exch1_bg_RX_cube
0093 C------------------------------------------
f262e741a1 Jean*0094 c$taf SUBROUTINE exch1_bg_rl_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11,12
0095 c$taf SUBROUTINE exch1_bg_rl_cube OUTPUT = 1,2
0096 c$taf SUBROUTINE exch1_bg_rl_cube ACTIVE = 1,2
0097 c$taf SUBROUTINE exch1_bg_rl_cube DEPEND = 3,4,5,6,7,8,9,10,11,12
0098 c$taf SUBROUTINE exch1_bg_rl_cube ADNAME = exch1_bg_rl_cube_ad
0099 c$taf SUBROUTINE exch1_bg_rl_cube FTLNAME = exch1_bg_rl_cube
55620e3eba Jean*0100
f262e741a1 Jean*0101 c$taf SUBROUTINE exch1_bg_rs_cube INPUT = 1,2,3,4,5,6,7,8,9,10,11,12
0102 c$taf SUBROUTINE exch1_bg_rs_cube OUTPUT = 1,2
0103 c$taf SUBROUTINE exch1_bg_rs_cube ACTIVE = 1,2
0104 c$taf SUBROUTINE exch1_bg_rs_cube DEPEND = 3,4,5,6,7,8,9,10,11,12
0105 c$taf SUBROUTINE exch1_bg_rs_cube ADNAME = exch1_bg_rs_cube_ad
0106 c$taf SUBROUTINE exch1_bg_rs_cube FTLNAME = exch1_bg_rs_cube
55620e3eba Jean*0107
0108 C----------------------------------------------------------------
0109