# ========================= # pkg AUTODIFF parameters : # ========================= # inAdExact :: get an exact adjoint (no approximation) (def=.True.) # &AUTODIFF_PARM01 # inAdExact = .FALSE., useSEAICEinAdMode = .FALSE., # useKPPinAdMode = .FALSE., # useGMRediInAdMode = .FALSE., useGGL90inAdMode = .FALSE., useSALT_PLUMEinAdMode = .FALSE., useInOutAdvar = .TRUE., inAdviscA4Grid = 0.E0, inAdviscAhGrid = 2.E-2, inAdviscArNr = 1.E-3, inAddiffKrNrT = 1.E-5, inAddiffKrNrS = 1.E-5, inAddiffKhT = 1.E1, inAddiffKhS = 1.E1, inAddiffK4T = 0.E10, inAddiffK4S = 0.E10, inAdviscFac = 2.E0, ## make sure outAdviscA4Grid matches viscA4grid in data!! outAdviscA4Grid = 0.E0, outAdviscAhGrid = 2.E-2, outAdviscArNr = 1.E-3, outAddiffKrNrT = 1.E-5, outAddiffKrNrS = 1.E-5, outAddiffKhT = 1.E1, outAddiffKhS = 1.E1, outAddiffK4T = 0.E10, outAddiffK4S = 0.E10, outAdviscFac = 1.E0, &