LOGICAL useGGL90inAdMode, useGGL90inFwdMode
& useGGL90inAdMode, useGGL90inFwdMode,
useGGL90 = useGGL90inAdMode
useGGL90inAdMode = useGGL90inAdMode .AND. useGGL90
CALL WRITE_0D_L( useGGL90inAdMode, INDEX_NONE,
& useKPPinAdMode, useGGL90inAdMode,
useGGL90inAdMode = .TRUE.