972 |
& useRunClock, useEMBED_FILES, |
& useRunClock, useEMBED_FILES, |
973 |
& useMYPACKAGE |
& useMYPACKAGE |
974 |
|
|
975 |
|
C Logical flags for turning off parts of the code in adjoint mode |
976 |
|
LOGICAL useKPPinAdMode, useKPPinFwdMode |
977 |
|
LOGICAL useGMrediInAdMode, useGMrediInFwdMode |
978 |
|
LOGICAL useSEAICEinAdMode, useSEAICEinFwdMode |
979 |
|
COMMON /PARM_PACKAGES_ADJ/ |
980 |
|
& useKPPinAdMode, useKPPinFwdMode, |
981 |
|
& useGMrediInAdMode, useGMrediInFwdMode, |
982 |
|
& useSEAICEinAdMode, useSEAICEinFwdMode |
983 |
|
|
984 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
985 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
986 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |