_RL viscFacInAd
COMMON /AUTODIFF_PARM_R/ viscFacInAd
viscFacAdj=viscFacInAd
CALL WRITE_0D_RL( viscFacInAd, INDEX_NONE,
& inAdExact, SEAICEapproxLevInAd, viscFacInAd,
viscFacInAd = 1. _d 0