# ========================= # pkg AUTODIFF parameters : # ========================= # inAdExact :: get an exact adjoint (no approximation) (def=.True.) # &AUTODIFF_PARM01 # default is true # inAdExact = .FALSE., # flag above true results in inAd[True,False]=[false,false], # subsequently inAdMode is set to inAdTrue = false # default is true useSALT_PLUMEinAdMode = .FALSE., # default is true useKPPinAdMode = .FALSE., # default is true useGMRediInAdMode = .FALSE., # default is true useSEAICEinAdMode = .TRUE., # default is zero SEAICEapproxLevInAd = 0, # default is false # SEAICEuseFREEDRIFTswitchInAd = .FALSE., # default is set to SEAICEuseDYNAMICS # SEAICEuseDYNAMICSinFwdMode # default is false SEAICEuseDYNAMICSswitchInAd = .TRUE., &