Warning, /pkg/autodiff/model_ad.flow is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit b7411f1a on 2025-11-06 19:05:26 UTC
fead278c20 Patr*0001 C----------------------------------------
0002 C subroutine the_main_loop
0003 C----------------------------------------
0004 CADJ SUBROUTINE the_main_loop ADNAME = adthe_main_loop
0005 CADJ SUBROUTINE the_main_loop FTLNAME = g_the_main_loop
fba812e19e Jean*0006 CADJ SUBROUTINE the_main_loop MODNAME = mdthe_main_loop
fead278c20 Patr*0007
10156c3adf Jean*0008 C----------------------------------------
0009 C subroutine calc_oce_mxlayer
0010 C----------------------------------------
0011 CADJ SUBROUTINE calc_oce_mxlayer INPUT = 1,2,3,4,5,6,7
0012 CADJ SUBROUTINE calc_oce_mxlayer OUTPUT =
0013
ff72073f96 Patr*0014 C----------------------------------------
0015 C subroutine do_the_model_io
0016 C----------------------------------------
228c6444b6 Jean*0017 CADJ SUBROUTINE do_the_model_io INPUT = 1,2,3,4
ff72073f96 Patr*0018 CADJ SUBROUTINE do_the_model_io OUTPUT =
228c6444b6 Jean*0019 CADJ SUBROUTINE do_the_model_io DEPEND = 1,2,3,4
ff72073f96 Patr*0020 CADJ SUBROUTINE do_the_model_io REQUIRED
0021
10156c3adf Jean*0022 C----------------------------------------
0023 C subroutine turnoff_model_io
0024 C----------------------------------------
0025 CADJ SUBROUTINE TURNOFF_MODEL_IO INPUT = 1,2
0026 CADJ SUBROUTINE TURNOFF_MODEL_IO OUTPUT =
0027
d1d9168d08 Jean*0028 C----------------------------------------
0029 C subroutine DO_STATEVARS_DIAGS
0030 C----------------------------------------
0031 CADJ SUBROUTINE DO_STATEVARS_DIAGS INPUT = 1,2,3,4
0032 CADJ SUBROUTINE DO_STATEVARS_DIAGS OUTPUT =
0033 CADJ SUBROUTINE DO_STATEVARS_DIAGS DEPEND = 1,2,3,4
0034 CADJ SUBROUTINE DO_STATEVARS_DIAGS REQUIRED
0035
ff72073f96 Patr*0036 C----------------------------------------
0037 C subroutine plot_field_xyrs
0038 C----------------------------------------
0039 CADJ SUBROUTINE plot_field_xyrs INPUT = 1,2,3,4
0040 CADJ SUBROUTINE plot_field_xyrs OUTPUT =
0041
0042 C----------------------------------------
0043 C subroutine plot_field_xyrl
0044 C----------------------------------------
0045 CADJ SUBROUTINE plot_field_xyrl INPUT = 1,2,3,4
0046 CADJ SUBROUTINE plot_field_xyrl OUTPUT =
0047
0048 C----------------------------------------
0049 C subroutine plot_field_xyzrs
0050 C----------------------------------------
0051 CADJ SUBROUTINE plot_field_xyzrs INPUT = 1,2,3,4,5
0052 CADJ SUBROUTINE plot_field_xyzrs OUTPUT =
0053
0054 C----------------------------------------
0055 C subroutine plot_field_xyzrl
0056 C----------------------------------------
0057 CADJ SUBROUTINE plot_field_xyzrl INPUT = 1,2,3,4,5
0058 CADJ SUBROUTINE plot_field_xyzrl OUTPUT =
0059
0060 C----------------------------------------
0061 C subroutine plot_field_xzrs
0062 C----------------------------------------
0063 CADJ SUBROUTINE plot_field_xzrs INPUT = 1,2,3,4,5
0064 CADJ SUBROUTINE plot_field_xzrs OUTPUT =
0065
0066 C----------------------------------------
0067 C subroutine plot_field_xzrl
0068 C----------------------------------------
0069 CADJ SUBROUTINE plot_field_xzrl INPUT = 1,2,3,4,5
0070 CADJ SUBROUTINE plot_field_xzrl OUTPUT =
0071
0072 C----------------------------------------
0073 C subroutine plot_field_yzrs
0074 C----------------------------------------
0075 CADJ SUBROUTINE plot_field_yzrs INPUT = 1,2,3,4,5
0076 CADJ SUBROUTINE plot_field_yzrs OUTPUT =
0077
0078 C----------------------------------------
0079 C subroutine plot_field_yzrl
0080 C----------------------------------------
0081 CADJ SUBROUTINE plot_field_yzrl INPUT = 1,2,3,4,5
0082 CADJ SUBROUTINE plot_field_yzrl OUTPUT =
0083
0084 C----------------------------------------
0085 C subroutine write_state
0086 C----------------------------------------
0087 CADJ SUBROUTINE write_state INPUT = 1,2,3
0088 CADJ SUBROUTINE write_state OUTPUT =
0089
